Пороверте правильно написана программа?

[Pchelka1992]

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

uses crt;
var a,b,c:real;
i:byte;
begin
clrscr;
writeln('Введите 3 действительных числа:');
readln(a);
if a>=0 then a:=a*a else a:=sqr(sqr(a));
readln(b);
if b>=0 then b:=b*b else b:=sqr(sqr(b));
readln(c);
if c>=0 then c:=c*c else c:=sqr(sqr(c));
write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
readln
end.
Проверьте пожалуйста и помогите написать ее в excel,огромное спасибо