Даны три действительных числа

Я так понимаю надо написать Паскале 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.