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,'.');
writeln('Спасибо за покупку!');
readln;
end.