Question

В торговом центре продаются яблоки. Известно, что при покупке свыше 2 килограммов покупатель получает скидку в 20% на все остальные покупаемые им яблоки. В среде программирования разработайте программу, которая вычисляет итоговую стоимость X кг яблок с учётом скидки. Вычислите с помощью программы итоговую стоимость 5 кг яблок, если цена 1 кг яблок равна 80 руб. НУЖНО В ПАСКАЛЕ!!! ПлиИиИиИииЗ

Answer 1

Program abc;
var a,b,c:integer;
begin
  writeln('Введите количество килограмм');
  read(a);
  b=80;
If a>=2 them c:=a*b*(20/100)
else c:=a*b;
  writeln('Стоимость яблок равна',c);
  end;
end.