Скидка в 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.