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

uses crt;var summa:real;begin clrscr;write('Введите сумму покупки'); readln(summa);if summa>1000 thenbeginwriteln('Вам предоставляется скидка 10%');   writeln('Сумма покупки с учетом скидки: ',summa*0.9:0:2,' гривен.');endelse writeln('Скидка не предоставляется'); write('Для завершения нажмите Enter'); readlnend.