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

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

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

 write(c, ,d);
 readln;
 readln

end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.