Question

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

Answer 1

var a, b, c: integer;
function zd(a:integer): integer;
begin
if a=0 then
zd:=0
else
if a>0 then zd:=sqr(a) else zd:=a*a*a;
end;
begin
read(a, b, c);
write(zd(a), ' ');
write(zd(b), ' ');
write(zd(c), ' ');
end.