ОЧЕНЬ НАДО!!!!!!!!!!!
Дан массив из 5 элементов, составить программу, которая возводит в квадрат элементы, которые как кратные 4, так и положительны

var a:array [1..5] of integer;beginfor i:=1 to 5 dobeginread(a[i]);if (a[i]>0) and (a[i] mod 4=0) then a[i]:=sqr(a[i]);end;for i:=1 to 5 dowrite(a[i],' ')end.