Даны 3 действительных числа. возвести в квадрат те из них, значение которых неотрицательно, а в четвертую степень отрицательные числа. составить программу на языке паскаль, которая выводит на экран ответ для введенных с клавиатуры чисел. протестировать с числами 5,2,1. решить с условного оператора. . 30 !

Var
 a,b,c:real;
begin
 read(a,b,c);
 writeln;
 if a>=0 then writeln(sqr(a)) else writeln(power(a,4));
 if b>=0 then writeln(sqr(b)) else writeln(power(b,4));
 if c>=0 then writeln(sqr(c)) else writeln(power(c,4));
end.