Язык Паскаль. Рассчитать количество плитки

Задача. Имеется поверхность пола длиной x и шириной y и плитка размерами x1 на y1. Какое количество плитки понадобится для укладки пола?

Размеры пола и плитки будем задавать в мм.

При укладке базовым (традиционным) способом края плитки параллельны стенам помещения.

Количество плитки рассчитывается по формуле: k = xy/(x1y1).

Программа решения задачи на языке Паскаль

var x,y,x1,y1:integer; k:real;

begin

   writeln('Введите размеры пола в мм (длину и ширину)');

   readln(x,y);

   writeln('Введите размеры плитки в мм (длину и ширину)');

   readln(x1,y1);

   k:=x*y/(x1*y1);

   writeln('Вам понадобится ',k,' плиток');

end.

Если количество плиток не целое число, то придется купить на 1 больше.

Например, если расчет 77.7 плитки, покупаем 78.

Результат запуска программы