{$R+}
program ideone;
type
  dia = 3..5;
var
  pituh: dia;
begin
  pituh:= 3;
  repeat
    WriteLn(pituh);
    Inc(pituh)
  until false;
end.