Расставить знаки арифметических действий 4 4 4 4=5. убиться.решали 6 взрослых 2 дня

((4 * 4) + 4) / 4 = 5

Var a,b,c: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if a> b then     begin     if a> c then a: =a/3     else c: =c/3;     if b< c then b: =b*3     else c: =c*3     end else     begin     if b> c then b: =b/3     else c: =c/3;     if a< c then a: =a*3     else c: =c*3     end; writeln; writeln('a = ',a); writeln('b = ',b); writeln('c = ',c); end.

Без рекурсии: procedure abc(n: integer); var c: integer; begin c: =0; while n> 0 do     begin     c: =c*10+n mod 10;     n: =n div 10     end; while c> 0 do     begin     writeln(c mod 10);     c: =c div 10     end end; var n: integer; begin write('n = '); readln(n); abc(n); end. с рекурсией: procedure abc(n: integer); begin if n> 0 then     begin     abc(n div 10);     writeln(n mod 10);     end end; var n: integer; begin write('n = '); readln(n); abc(n); end.