Mine

program parduotuve;
 uses crt;
 var p, m:real;
        d:integer ;
begin
  Textbackground(14); clrScr;
  Textcolor (0) ;
  WriteLn('iveskite, kiek pinigu suprekiavo parduotuve pirma diena ');
  readln( p);
  Writeln ('iveskite pinigu suma, kuria parduotuve soprekiaus paskutine diena');
  readln(m);
  d:=0 ;
  while p<m do
   begin
     p:=p + (p*3)/100;
     d:=d + 1;
   end;
  window (5,7, 40, 10); Textbackground (1); Textcolor (15); ClrScr;
  writeln('parduotuve turi rekiauti ',d ,' dienas');
  readln;
end.