Помогите перевести этот код из паскаля в питон

program sas;
var s,x: real;
begin
write('Введите сумму: ');
readln(s);
if s>200 then
begin
if s>500 then
x:=s*95/100
else
x:=s*97/100;
end
else
x:=s;
write(x);
end.