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