program palukanos;
var
ind,s:real;
t,p:integer;
begin
  ind := 1000;
  S := 1200;
  p := 5;
  while ind < S do
    begin
    t := t + 1;
    ind := ind * (1 + p / 100)
    end;
  Writeln('Pinigai priauks po: ', t ,'metų');
ReadLn;
end.