Дано четыре целых числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные

Входные данные: с клвиатуры вводится 4 целых числа

Выходные данные: необходимо вывести на экран преобразованные числа в той же последовательности

Пример входных и выходных данных

№ теста Входные данные Выходные данные
1 3 5 -2 -4 9 25 16 256

Program n1;var a,b,c,d: integer;beginreadln(a,b,c,d);if a>0 then a:=a*aelse a:=a*a*a*a;if b>0 then b:=b*belse b:=b*b*b*b;if c>0 then c:=c*celse c:=c*c*c*c;if d>0 then d:=d*delse d:=d*d*d*d;writeln(a,' ',b,' ',c,' ',d);end.