var S, skidka, x: real;
begin
 skidka:=5;
 writeln('Ââåäèòå öåíó: ');
 readln(x);
 S:=(x-(x*skidka)/100);
 writeln('Ñóììà ïîêóïêè ñ ó÷åòîì ñêèäêè 5%: ', S);
end.