В одномерном массиве попарно расположены на первом месте значение довода. На

Генерирую массив позже вывожу в столбики,n-константа которую ты избираешь внезависимости от размера желанного массива 

program Project2;
 APPTYPE CONSOLE
uses  SysUtils; 
const n=7;
var a:array [0..n] of integer; 
 i:integer;
begin 
 randomize;
 for i:=0 to n do 
a[i]:=Random(100); 
 Writeln('X  F(X)');
 for i:=0 to n do
 begin 
if i mod 2 lt;gt; 0 then Continue; 
 write(a[i],'  ',a[i+1]); 
Writeln;
 end;
 readln;
end.