var a:array[1..1000] of integer;
i,s,k,n:integer; sr:real;
begin
writeln('введите кол-во элементов массива');readln(n);
for i:=1 to n do begin a[i]:=random(50); write(a[i]:4);end;
for i:=1 to n do
if a[i] mod 2<>0 then a[i]:=25 else a[i]:=sqr(i);
writeln;
writeln('новый массив');
for i:=1 to n do write(a[i]:4);
end.