ПОЖАЛУЙСТА СРОЧНО даю 30 баллов Написать решение задачи ** языке Pascal(составить...

Question

ПОЖАЛУЙСТА СРОЧНО даю 30 баллов

Написать решение задачи на языке Pascal(составить программу) в тетраде

Один торт выпекается за 1,5 кг сахара Сколько тортов можно испечь из Х сахара? (число Х вводится с клавиатуры)

Answer 1

Var a: integer;
begin
write('Введите кол-во сахара (в кг).');
read(a);
var a2: real;
a2 := a / 1,5;
write('Кол-во тортов: ',a2);
end.

Наверно как-то так.