program seitse; uses crt; {programm laseb sisestada seitse t„isarvu ning v„ljastab nad sorteeritult.} var arv: array[1..7] of integer; i, j, min, abi, nr, x, veakood: integer; c: char; begin Writeln('Sisesta 7 arvu vahemikus 0..9'); writeln; nr:=1; repeat write(nr,'. '); c:=readkey; writeln(c); if((c>='0')and(c<='9')) then begin val(c, arv[nr], veakood); inc(nr); end else begin sound(600); delay(15); nosound; writeln(c,' pole number!'); end; until nr>7; for i:=1 to 6 do begin min:=i; for j:=i to 7 do if arv[j]