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