Найти количество квадратов, размещенных на прямоугольнике, а также площадь незанятой части прямоугольника - PascalABC.NET

Формулировка задачи:

Даны целые положительные числа A, B, C. На прямоугольнике раз- мера A х B размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике, а также площадь незанятой части прямоугольника

Решение задачи: «Найти количество квадратов, размещенных на прямоугольнике, а также площадь незанятой части прямоугольника»

Листинг программы

var
   a,b,c,Sk,Sp:integer;
   Resulr:real;
begin
     Writeln('Enter please A,B,C=');
     readln(a,b,c);
    Sk:=c*c;
    Sp:=a*b;
    Resulr:=Sp div Sk;
    writeln('Количество квадратов размещенных в прямоугольнике=',Resulr);
end.

Объяснение кода листинга программы

В первой строке объявлены четыре переменные типа integer (целые числа) - a, b, c, Sk, а также одна переменная типа real (число с плавающей точкой) - Sp.
Вторая строка содержит запрос на ввод значений переменных a, b, c с помощью функции readln().
В третьей строке происходит вычисление площади квадрата, которая сохраняется в переменной Sk.
В четвертой строке вычисляется площадь прямоугольника, которая сохраняется в переменной Sp.
В пятой строке происходит вычисление количества квадратов, размещенных в прямоугольнике, путем деления площади прямоугольника на площадь квадрата. Результат сохраняется в переменной Resulr.
В шестой строке выводится сообщение с количеством квадратов размещенных в прямоугольнике.