Begin
Integer i;
For i:=1 step 1 until 50 do OutInt(i,5);
End;