Скидка в 10% предоставляется, если сумма покупки больше 1000 (программа в паскалье)

Uses crt;

var summa:real;

begin clrscr;

write ('Введите сумму покупки');

readln (summa);

if summa>1000 then

begin

writeln ('Вам предоставляется скидка 10%');

writeln ('Сумма покупки с учетом скидки: ', summa*0.9:0:2,' гривен.');

end

else writeln ('Скидка не предоставляется'); write ('Для завершения нажмите Enter');

readln

end.