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

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

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