Переведите код с Pascal на Python ( ) var
p,s:real;
k:integer;
begin
clrscr;
write('p=');
read(p);
s:=1000;
k:=0;
while s < 1100 do
begin
s:=s+p;
inc(k);
end;
writeln;
if (p > 0)and(p < 25) then
begin
writeln('Через ', k ,' месяцев');
writeln('Результат ', s:2:2);
end
else
writeln('0 readkey;
end.