2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

var a, b, c: integer;function zd(a:integer): integer;beginif a=0 thenzd:=0elseif a>0 then zd:=sqr(a) else zd:=a*a*a;end;beginread(a, b, c);write(zd(a), ' ');write(zd(b), ' ');write(zd(c), ' ');end.