PROGRAM PROGRAM8; USES WinCrt; VAR i : INTEGER; BEGIN WRITELN('Od 3 do 8'); FOR i := 3 TO 8 DO WRITELN('i = ', i ); END.