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

Спасибо))

Не за что)

Program Skidka;var x,n,s: real;beginwriteln('Добро пожаловать в наш Супермаркет!');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,'.');writeln('Спасибо за покупку!');readln;end.