Пожалуйста посчитайте хоть как-нибудь, очень срочно плиииз

var  a: integer;

begin
  write('Сумма покупки: ');
  readln(a)ж
  if a > 1000 then
    writeln('Сумма с учетом скидки: ', a * 0.85)
  else
    writeln('Скидка не предоставляется');
end.