Напишите программу вычисления итоговой суммы покупки с учетом скидки.Скидка в размере 7 %...

Question

Напишите программу вычисления итоговой суммы покупки с учетом скидки.Скидка в размере 7 % начисляется,если сумма покупки более 5000 руб.Сумма покупки вводится пользователем с клавиатуры.Результат работы программы вводится на экран

Answer 1

Если я тебя правильно понял:
var
  a, f: real;

begin
  readln(a);
  if a >= 5000 then
  begin
    f := a - (0.07 * a);
    writeln(f);
  end
  else
  if a < 5000 then
    writeln(a);
end.