program z16_77;
uses crt;
var A: Array[1..100] of integer;
n,k,i:byte;
x:integer;
BEGIN
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ â ìàññèâå (n<=100)');
readln(n);
writeln('Ââóäèòå çíà÷åíèå ýëåìåíòîâ ìàññèâà');
For i:=1 to n do readln(A[i]);
k:=1;
while (A[k]<>1) and (k<=n) do k:=k+1;
if k<=n
then begin
x:=A[1]; A[1]:=A[k]; A[k]:=x;
For i:=1 to n do write(A[i],' ');
end
else writeln('Åäèíèö â ìàññèâå íåò');
END.