var count : byte; begin for count:=1 to 127 do begin writeln(count,'. loop'); end; end.