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.