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

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