в торгашеском центре продаются яблоки знаменито что при покупке выше 2

Ответ: 1 изображение - код

2 изображение - проверка, как в задании

Код:

program school10;

Var a, b:Real;

begin

Write('Введите стоимость 1 кг яблокgt;gt; ');

readln(a);

Write('Введите кол-во приобретаемых кг. яблокgt;gt; ');

Readln(b);

If bgt;2 then

Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')

Else write('Стоймость яблок составит ', b*a, ' руб.');

end.

Надо для тебя сбросить программу, либо решение, я не понял...