program 5_4; uses crt; var y,n,i:integer; Begin clrscr; n:=3; for i:=3 downto 1 do begin n:=sqr(sqr(n)-sqr(i)); end; writeln(n:6); End.