На каникулах мистер фокс побывал в нескольких небольших европейских городах. он помнит, что наиболее понравившиеся города ему удалось обойти полностью, пройдя по каждой улице ровно два раза, но не удалось обойти полностью, пройдя по каждой улице один раз. а те города, которые понравились меньше, удалось обойти и пройдя по каждой улице ровно два раза, и пройдя по каждой улице ровно один раз. на рисунках изображены схемы городов, в которых побывал мистер фокс. выберите схемы всех наиболее понравившихся ему городов. обойти полностью означает побывать на всех улицах и площадях города. на схемах точками обозначены площади, линиями – улицы. олимпиада фоксфорд 2020

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

однажды один информатик сидел перед компьютером. а надо сказать, что информатик – это человек будущего, т.е.ребенок. и этому человеку необходимо было сделать слишком много уроков. он долго печатал, устал и захотел отдохнуть. воспользовавшись отсутствием родителей (что бывает достаточно редко), пронырливый информатик решил запустить самую убойную игру. самую – самую, которую родители обещали «удалить». информатик так увлекся, что сам оказался в компьютере, в той самой игре. но что-то ему эта игра быстро разонравилась, когда он оказался внутри ее. здесь грохотали пушки, летали самолеты, ездили танки и надо было быстро реагировать, если ты хочешь остаться в живых. информатику страшно захотелось выйти из игры, для этого ему надо было найти дверь с надписью «выход». о счастье, что он знал, все короткие пути и лазейки в этой игре. из игры он выбрался, но куда же он попал? он увидел большую улицу и много человечков, которые возили тележки с информацией. эти человечки беспрестанно толкали его. они были похожи друг на друга, но один привлек его внимание, т.к. явно был главным. он был самым высоким и имел отличающую его от всех надпись: «проводник». информатик обратился к нему и просил объяснить, где он находится. на что проводник ответил, что это главная улица worda. человечки продолжали суетиться, а информатик разглядывал с любопытством город. неожиданно он заметил, что в тени ползет какое –то существо, похожее на огромную гусеницу. она проползла и легла посередине тротуара. один из работников с тележкой споткнулся об нее, тележка перевернулась, а информация высыпалась. гусеница шустро поползла к рассыпавшимся буквам и начала их надкусывать (ибо! что не съем, то надкушу). увидев это, проводник достал мобильный телефон, набрал вызвал скорую . не прошло и несколько секунд как на реактивном моторе примчалась машина с надписью антивирус. из машины вылезли человечки в белых халатах, сделали ей успокоительный укол. затем посадили в машину и отправили в корзину. вот и сказке конец, а кто слушал – !

var n: integer;

procedure down(var n: integer); var a: array[1..20] of integer; i, j, s, p: integer; begin i : = 0; while n > 0 do begin i : = i + 1; a[i] : = n mod 10; n : = n div 10; end; p : = i; for i : = 1 to p - 1 do for j : = i + 1 to p do if a[i] < a[j] then begin s : = a[i]; a[i] : = a[j]; a[j] : = s; end; j : = 1; for i : = p downto 1 do begin s : = s + a[i] * j; j : = j * 10; end; n : = s; end;

begin readln(n); down(n); writeln(n); end.

второй вариант