uses crt; const n=4; type masiv=array[1..n] of longint; var ar:masiv; i: integer; procedure enterdata; begin writeln('Ievadi ',n,' skaitlus'); for i:=1 to n do readln(ar[i]);writeln; for i:=1 to n do write(ar[i],' ');writeln; end; procedure output(var ar:masiv; l:longint); var i:integer; begin for i:=1 to n do write(ar[i],' '); end; procedure maina(var a,b:longint); var c:integer; begin c:=a; a:=b; b:=c; end; procedure hoar(var ar:masiv; l, u:longint); var i,j:integer; tempr:longint; begin while u>l do begin i:=l; j:=u; tempr:=ar[l]; while itempr do dec(j); ar[i]:=ar[j]; while(i=j then exit; if j-i=1 then begin if ar[j]