Заменить все четные элементы на их квадраты, а нечетные удвоить

Program abc; var i, b, c: integer; var a: array [1… 10] of integer; Beginfor i: =1 to 10 dobeginwriteln ('Введите число'); readln (a[i]); end; for i: =1 to 10 dobeginif a[i] mod 2=0 then a[i]: =a[i]^2 else a[i]: =a[i]*2; writeln (a[i]); end; end.