я так понял нужно ЗАМЕНИТЬ нечетные элементы на их квадраты. в следующий рас пишите условие яснее.
const n=3;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i] mod 2<>0 then a[i]:=sqr(a[i]);
for i:=1 to n do write(a[i]);
end.
