Дано натуральное N. f1, f2.. fn. Вывести на печать элементы ...

Нюра

uses Arrays;
var

 n, i: integer;

 arr: array of integer;



begin

 writeln('Введите n: ');

 readln(n);

 SetLength(arr, n);

 arr := CreateRandomIntegerArray(n);

 for i:=0 to n-1 do

 write(arr[i], ' ');

 writeln(' ', ' ', ' ');

 for i := 0 to n-1 do  
   if (i mod 4 = 0) then writeln(arr[i]);

end.