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

program _1;const n=5;m=5;var v:array[1..n][1..m] of integer; i,j:integer;beginfor i:=1 to n dofor j:=1 to m dobeginif (v[i,j] mod 2) = 0 then v[i,j]:=sqr(v[i,j])else v[i,j]:=2*(v[i,j]);end;end.