Написать программу которая может вычислить стоимость покупки с учетом скидки 10% есть сумма покупки больше 1000р

var
  a: real;
  
begin
  while a <= 1000 do
  begin
    writeln('Введите сумму покупки > 1000р');
    readln(a);
    if a > 1000 then break
    else writeln('Ошибка! Введенная сумма покупки <= 1000p');
  end;
  writeln('Стоимость покупки с учетом скидки 10%:  ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
  a: real;
  
begin
  writeln('Введите сумму покупки > 1000р');
  readln(a);
  writeln('Стоимость покупки с учетом скидки 10%:  ', a * 0.9);
end.

БОЛЬШУЩИЕ СПАСИБИЩЕ!!!

:*