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

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