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

Мегамозг

я так понимаю надо написать Паскале1uses crt;2var a,b,c:real;3            i:byte;4 begin5clrscr;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);14readln15end.