уже писал, но попал в баг(
так вот. в паскале это будет так:
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.
вот так вот.
