N(2) son berilgan. 12710 nechini ayirganda javoblarni faqat 1 sondan iborat bo’ladi.

1. "Современный вариант"
// PascalABC.Net 3.0, сборка 1076
begin
  var t:=ArrRandom(31,18,39);
  Writeln('Температуры июля',#13#10,t);
  Writeln('Температуры двух самых теплых дней: ',
  t.OrderByDescending(x->x).Take(2))
end.

Тестовое решение:
Температуры июля
[25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25]
Температуры двух самых теплых дней: [37,34]

2. "Школьный вариант."
// PascalABC.Net 3.0, сборка 1076
var
  t:array[1..31] of integer;
  i,max,max2:integer;
begin
  Randomize;
  Writeln('Температуры июля');
  max:=0; max2:=0;
  for i:=1 to 31 do begin
    t[i]:=Random(22)+18;
    Write(t[i],' ');
    if t[i]>max then begin max2:=max; max:=t[i] end
    else
      if t[i]>max2 then max2:=t[i]
    end;
  Writeln;
  Writeln('Температуры двух самых теплых дней: ',max,', ',max2)
end.

Тестовое решение:
Температуры июля
23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20
Температуры двух самых теплых дней: 38, 37

1. Типовой "школьный" вариант
// PascalABC.NET 3.0, сборка 1076
var
  s,a1,a2,a3:string;
  p:integer;
begin
  s:='22 33 444';
  p:=Pos(' ',s);
  a1:=Copy(s,1,p-1);
  Delete(s,1,p);
  p:=Pos(' ',s);
  a2:=Copy(s,1,p-1);
  Delete(s,1,p);
  a3:=s;
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444

2."Современный" вариант
// PascalABC.NET 3.0, сборка 1076
begin
  var s:='22 33 444';
  var m:=s.ToWords;
  var a1:=m[0];
  var a2:=m[1];
  var a3:=m[2];
  Writeln(a1,#13#10,a2,#13#10,a3)
end.

Результат выполнения программы:
22
33
444