Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода на экран элементов,значения которых являются квадратами целых чисел.СРОЧНООО!!!!

if (a[i] mod 2=0) and (i mod 2=0) then

что за команда?

это проверка элементов по условиям: чтобы элемент стоял на четном месте (i mod 2=0) и чтобы сам элемент был четным and (a[i] mod 2 = 0).

спасибо)

пожалуйста

Текст программы на языке Паскаль:program _1;const N=10;var i: integer; a: array[1..N] of integer;beginfor i:=1 to N do beginreadln(a[i]);a[i]:=a[i]*a[i];end;for i:=1 to N do beginwriteln(a[i]);end;end.