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

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