ПОМОГИТЕ!! СРОЧНО!!!<br />Даны два целых числа. Возвести в квадрат отрицательные числа и...

Question

ПОМОГИТЕ!! СРОЧНО!!!
Даны два целых числа. Возвести в квадрат отрицательные числа и в третью степень - положительные, число 0 заменить на максимальное этих чисел.

Answer 1

Var
 a,b,c,d:integer;
begin
  read(a,b);
  If a<0<br>   then c:=sqr(a)
   else if a>0
         then c:=a*a*a
         else c:=b;

  If b<0<br>   then d:=sqr(b)
   else if b>0
         then d:=b*b*b
         else d:=a;

 write(c,' ',d);
 readln;
 readln

end.