Клиент открыл счет в банке 1 марта, вложив 1000 рублей. Каждый

Const month:array[0..11] of string [15]=
('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 
'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
var s:real; i,k:integer;
begin
s:=1000; k:=0;
while slt;=1200 do
 begin
 s:=s*1.01;
 k:=k+1;
 end;
writeln('k = ',k,' - ',month[k mod 12+2]);
end.

Результат:
k = 19 - октябрь