Даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе — куб…

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