решить алгоритмическую задачу

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.