Определить количество коробок, которые можно изготовить из одного листа, если известны его размеры - Free Pascal

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

Кому несложно плиз помогите: Составить программу, которая определяет размер картона, который требуется для изготовления одной коробки, если известно, что стороны коробки должны быть одинаковы, а картон должен быть в форме квадрата. С клавиатуры ввести сторону коробки в см. Вывести размер картона в см.

И вот ещо: Картонная фабрика выпускает коробки трех размеров 10 * 10 см, 25 * 25 см и 40 * 40 см. Коробки имеют 5 граней одинакового размера. Составить программу, которая бы определяла количество коробок, которую можно изготовить из одного листа, если известно его размеры. С клавиатуры вводится высота листа, ширина листа и размер коробки (10, 25 или 40).

Решение задачи: «Определить количество коробок, которые можно изготовить из одного листа, если известны его размеры»

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

var a:integer;
begin
writeln ('Введите число');
readln (a);
writeln (3*a,'*',3*a);
end.

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

Введено значение переменной a типа integer с помощью функции readln
Вычислено значение выражения 3*a и выведено на экран с помощью функции writeln
В выводе присутствует строка '*', которая является разделителем между числом и его увеличенным значением
Значение переменной a увеличивается в 3 раза
Вывод на экран происходит с помощью функции writeln