Найти нечетные элементы массива и их квадраты НА ПАСКАЛЕ    

я так понял нужно ЗАМЕНИТЬ нечетные элементы на их квадраты. в следующий рас пишите условие яснее. Решение:   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.