Добрый день.

Решение задачи не требует даже ввода переменных, поэтому его можно записать в 3 строчки:

begin

writeln('Всего на овощебазу привезли ',60+60/2,' кг бананов и кукурузы');

end.

Program n_1;
var a, b: real;
begin
a:=60;
b:=60/2;
writeln ('Всего привезли ', a, ' бананов и ', b, ' кукурузы');
end.
Надеюсь, что у меня получилось вам помочь