Покупатель, свершивший покупку на сумму, превышающую число n, получает 7 процентов скидки. разработать алгоритм (программу), с которого можно определить получит ли покупатель премиальную скидку и, если получит, то вычислить сумму оплаты покупки s с учетом скидки, если известно сумма покупки х и призовая сумма n. программа должна иметь дружественный интерфейс.

Program Skidka;
var x,n,s: real;
begin
writeln('Добро в наш Супермаркет!');
write('Введите сумму покупки: ');
readln(x);
write('Введите призовую сумму: ');
readln(n);
s:=0;
if (x>n) then begin
s:=x-(x/100*7);
writeln('Вы сделали покупку на сумму ',x,'. Вам полагается скидка ',x/100*7'.');
writeln('К оплате: ',s,'.');
end else writeln('К оплате: ',x,'.');
за покупку!');
readln;
end.