Определи заполнения массива. for i:=1to8doread(a[i]);

с оператора присваивания (по формуле)

с оператора присваивания (случайными числами)

ввод каждого значения с клавиатуры

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.

к чёрту на куличики

выражение “у черта на куличках”  – начнем с того, что никакого слова кулички в языке нет. от кулича  выйдут куличики, от кулика — кулички. на самом же деле не на кулички надо посылать, а на кулижки. вот тогда справедливость восторжествует, и мы сможем приступить к объяснению этого истинно оборота.кулиги и кулижки были известными и весьма употребительными словами на севере россии. когда хвойный лес «ослабевает», там появляются прогалины, поляны. на них мгновенно начинают расти трава, цветы и ягоды. эти лесные острова и назывались кулигами. еще с языческих времен на кулигах совершались жертвоприношения: жрецы закалывали оленей, овец, телок, жеребцов, все наедались досыта, напивались допьяна.когда же пришло на русь христианство и стало оно теснить язычество, пришел на кулигу крестьянин, поставил избу, стал сеять рожь, ячмень, появлялись целые деревенские артели. когда же жить станови лось теснее, уходили от стариков дети и племянники, да порой так далеко, что и вести достигать переставали, жили, как  у черта на куличках.

другая версия:

фразеологизм у черта на куличках  это: страшно далеко, где-то в дикой глуши. общий смысл слов понятен каждому, а вот что такое «кулички», не знает почти никто.

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

в старых грамотах постоянно встречается такая формула: «и вся та земля, покуда топор ходил и коса ходила». земледельцу часто приходилось на свою ниву отправляться в страшную глушь, на самые дальние «кулижки», хуже ближних разработанные, где, по тогдашним суеверным представлениям, в болотах и буреломах водились и лишние, и черти, и всякая лесная нечисть.

так и получили обычные слова свое второе, переносное значение: далеко, на краю света.

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.