Задание.Написать программу расчета количества квадратов в заданном прямоугольнике . Паскаль.

[Джамайка]

Подскажите, в правильном ли направлении иду вообще. Пишу первый раз.
Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storoni');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
Readln
ClrScr;
writeln('Vvedite storony');
readln(a);
s:=a*a;
Writeln('ploshad =',s:4:4);
ClrScr;
(s:=a*b)/ (s:=a*a);
readln
end.

Задание.Написать программу расчета количества квадратов в заданном прямоугольнике

[Аватар]

(s:=a*b)/ (s:=a*a);

это не понимаю

Ну а если прямоугольник со сторонами a и b, а квадрат со стороной d, то в прямоугольнике можно разместить ровно trunc(a/d)*trunc(b/d) квадратов

[Джамайка]

Эта строчка не правильна?(s:=a*b)/ (s:=a*a);
Заменить её на trunc(a/d)*trunc(b/d) ?

[digitalis]

Пишу первый раз.

Это заметно .

(s:=a*b)/ (s:=a*a);

Никлаус Вирт прочитал - и пошел топиться.
Может быть, прежде чем писа'ть - хотя бы одну книжку по предмету почитать? Там много интересного - что такое переменная, оператор присваивания и т.п. А если читано - то не понято.
Объяснить, что тут неправильно - да всё. Начиная с постановки задачи - вот в этот прямоугольник впишется (10*15)/(4*4) = 9,375 квадратов - или всё же 6?
Может, начать с чего попроще: ввести 2 числа, сложить и вывести сумму?