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

я так понимаю надо написать Паскале

1uses crt;

2var a,b,c:real;

3            i:byte;

4 begin

5clrscr;

6writeln('Введите 3 действительных числа:');

7readln(a);

8if a>=0 then a:=a*a else a:=sqr(sqr(a));

9 readln(b);

10if b>=0 then b:=b*b else b:=sqr(sqr(b));

11readln(c);

12if c>=0 then c:=c*c else c:=sqr(sqr(c));

13write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);

14readln

15end.