Даны два числа. если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. если хотя бы одно из чисел - отрицательное, то найти iа+ b+ci иначе а+b+c +d в корне. даны три числа. если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа

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

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

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.

Вот так вот.