Вывести таблицу квадратов чётных чисел от 1 до 19. условный оператор не использовать! сделайте через цикл

Четные 2,4,6,8,10,12,14,16,18

Var A: arrey[1..19,1..2] of integer; Var x, i: integer; Begin For i:=1 to 19 do begin A[i,1]:=i; A[i,2]:=i*i; Writeln (A[i,1]:4, A[i,2]:4) End End. Или если без массива, то так: Const n=12; Var x,y: integer; Begin For x:=1 to n do begin y:=x*x; Writeln (x:4,y:4) End End.