uses crt;
var tien,tong:real;
begin
clrscr;
write('Nhap so tien phai tra: ');readln(tien);
if tien<400 then tong:=tien/100*95 else
begin
tong:=400/100*95;
tien:=tien-400;
tong:=tong+tien/100*90;
end;
writeln('So tien can phai tra la: ',tong:1:0);
readln
end.