Program While_Task8;
 const n=25;
 var a:integer;
  begin
   a:=3;
   Repeat
   Writeln(a);
   inc(a);
   until a>n;
  end.