По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число). (P — вещественное число, 0 < P < 25).
program while15;
uses crt;
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<P<25');
readkey;
end.