Напишите пожалуйста на Pascal 50 БАЛЛОВ

Ответ:

program Answer;

var

carrot, potato, result: integer;

begin

//Введите значения

write('Введите значение potato (кг картошки): ');

readln(potato);

write('Введите значение carrot (кг моркови): ');

readln(carrot);

//Вычислим количество мешков для каждого овоща

result := (potato div 20) + (carrot div 30);

//Выведем результат

writeln('Общее количество мешков: ', result);

end.