<u><em>1. Типовой "школьный" вариант</em></u>
// 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.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<em><u>2."Современный" вариант</u></em>
// 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.
<em><u>Результат выполнения программы:</u></em>
22
33
444
500*60*55*1=<span>
1650000байт/1024/1024=</span><span><span>1,573563Мбайт
5916/(34*58)=3 страницы
128*256*4(глубина цвета)=</span></span><span><span>131072 бит/8/1024=16 Кбайт
24*1024*8/(512*128)=3 бита глубина цвета, 2 в степени 3=8 цветов</span></span>
Если богиня сидящая слева является Правдой, то она не могла сказать что рядом с ней сидит Правда.
Предположим, что Правда сидит в центре, но тогда она не могла сказать про себя что она Мудрость.
Исходя из последнего высказывания по условию задачи и вывода что справа сидит Правда, получаем что в центре сидит Ложь, а слева Мудрость.
Ответ: Мудрость, Ложь, Правда.
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.