Вторговом центре яблоки известно что при покупке свыше 2 кг яблок покупатель получает скидку 20% на все остальные покупаемые яблоки в среде программирования разработайте программу которая вычисляет итоговую стоимость x кг яблок с учетом скидки вычислите с программы итоговую стоимость 5 кг яблок
если 1 кг яблок равна 80руб​

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

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

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

Код:

program school10;

Var a, b:Real;

begin

Write('Введите цену 1 кг яблок>> ');

readln(a);

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

Readln(b);

If b>2 then

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

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

end.