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

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.