Как возвести в квадрат все четные элементы массива???

нет, не так. а вот так
program primer_1;
cоnst n=10;
Var A:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv'); {если уж просишь ввести, так вводи}
for i:=1 to n do begin
read (A[ i ]);
if A[ i ] mod 2 = 0 then A[ i ]:=A[ i ]*A[ i ] {анализировать и изменять надо элемент массива, а не левую переменную}
end;
for i:=1 to n do
write(A[ i ],' '); {выводить надо массив}
readln;
end.

не понимаю зачем использовать цикл фор если через вайл было бы удобнее сразу перепрыгивать к нужному элементу, не было бы ненужных действий типа мод
Var A:array[1..10] of integer;
i,m,n:integer;

begin
writeln('введите число элементов массива');
readln(n);
if n>10 then
writeln('error')
else
begin
writeln('введите элементы массива');
for i:=1 to n do
readln(A[ i ]);
if n>=2 then
begin
i:=2;
while i<=n do
begin
A[ i ]:=A[ i ]*A[ i ];
inc(i,2);
end;
end;
for i:=1 to n do
write(A[ i ],', ');
end;
end.

язык программирования мы должны угадать?

пример на паскале:
for i:=1 to n do if (i)mod(2)=0 then m:=m^2;

смысл:
создаем счетчик, запускаем цикл, если остаток от деления счетчика на 2 равен нулю (т. е. счетчик - целое число) , то возводим соответствующий элемент массива в квадрат.