a := 2;
while a < 6 do
begin
  writeln (a);
  a := a + 1
end;