5. Penki skaičiai. 
Šį uždavinį galima spręsti paprastai: skaičius surašyti į masyvą ir surikiuoti. O tada lengva nustatyti, ar vidurinis skaičius tenkina reikalaujamas sąlygas. 
Atkreipiame dėmesį, kad jei visi skaičiai yra skirtingi, tai vidurinis skaičius būtinai egzistuoja. Jei tarp duotų skaičių yra trys, keturi ar net visi vienodi, tai sprendinio nėra. Na, o jei yra tik du vienodi skaičiai, sprendinys gali egzistuoti, bet gali jo ir nebūti.
Pateikiame patį algoritmą:

type skaičiai = array [1..5] of integer; { duotieji skaičiai }

function yra (s: skaičiai): boolean;
  var i, j, t: integer;
begin
  for i := 1 to 4 do
    for j := i+1 to 5 do
      if s[i] > s[j]  { skaitmenų rikiavimas }
         then begin
                t := s[i];
                s[i] := s[j];
                s[j] := t
              end;    { masyvas surikiuotas }
  yra := (s[3] <> s[4]) and (s[3] <> s[2])
  { kadangi skaičiai surikiuoti, tai vidurinis narys tenkins reikalaujamą }
  { sąlygą, jei bus nelygus gretimiems nariams }
end;

Testo nr.	Pradiniai duomenys	Rezultatas	Paaiškinimai	
1	1 2 5 8 9	YRA	Skirtingi surikiuoti skaičiai	
2	1 9 8 5 4	YRA	Skirtingi nesurikiuoti skaičiai	
3	8 -1 2 -3 0	YRA	Skirtingi skaičiai, tarp kurių yra neigiamųjų ir nulis	
4	1 5 1 1 7	NĖRA	Trys vienodi skaičiai	
5	6 6 6 6 6	NĖRA	Visi skaičiai vienodi	
6	5 4 2 4 5	NĖRA	Dvi poros vienodų skaičių, bet sprendinio nėra	
7	6 8 8 7 6	YRA	Dvi poros vienodų skaičių, bet sprendinys yra	
8	88 64 36 36 1	NĖRA	Du skaičiai vienodi, bet sprendinio nėra	
9	14 25 81 14 17	YRA	Du skaičiai vienodi, bet sprendinys yra