Program e; var vstup, cislo: integer; i: integer; ocekavam: integer; ok: boolean; begin readln(vstup); while vstup>0 do begin read(cislo); ok:=(cislo<=vstup) and (cislo>0); for i:=2 to vstup do begin ocekavam:=(cislo+1) mod (vstup+1); if ocekavam=0 then ocekavam:=1; read(cislo); if (ocekavam<>cislo) then ok:=false; end; readln; if ok then writeln('Permutaci lze prevest.') else writeln('Matfyzacci maji smulu.'); readln(vstup); end; end.