Ввести массив A(N), N=7. Определить порядковый номер элемента, значение которого равно 49. Поменять местами элементы, равные 49 и первый элемент массива.

Program Z1; uses crt; var A:array [1..7] of integer;     x,z,i:integer; begin   ClrScr;     for i:=1 to 7 do     readln (A[i]);     Clrscr;     for i:=1 to 7 do     write (A[i]:4);     writeln;   for i:=1 to 7 do     if A[i]=49 then x:=i;     z:=A[1];   A[1]:=A[x];   A[x]:=z;     for i:=1 to 7 do     write (A[i]:4);     readln end.