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

Если я тебя правильно понял:
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.