Описать любого политического лидера по следующим критериям 1)По масштабу социальной базы Больших социальных групп Общенациональный Общественной организации или движений

уже писал, но попал в баг(

так вот. в паскале это будет так:

1)var a,b,c: integer;

begin

          readln(a,b);

          if a div 2 =0 then c: =(a+b)*(a+b)*(a+b);

                              else c: =a*a*a+b*b*b;

          writeln(c);

end.

2)var a,b,c: integer;

          d: real;

begin

          readln(a,b,c);

          if (a< 0) or (b< 0) or (c< 0) then d: =abs(a+b+c)

                                                        else d: =sqrt(a+b+c);

          writeln(d: 0: 2);

end.

3)var a,b,c: integer;

begin

          readln(a,b,c);

          if (a*b*c< 0) then begin a: =a*a; b: =b*b; c: =c*c; end

                                else begin a: =abs(a); b: =abs(b); c: =abs(c); end;

          writeln( a, ' ', b, ' ', c);

end.

вот так вот.