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

var a,b,c: real;
begin
write('Введите число 1: ');
readln(a);
write('Введите число 2: ');
readln(b);
write('Введите число 3: ');
readln(c);
writeln('a=', a:5:2);
if a>0 then writeln('a*a=', a*a:5:2);
writeln('b=', b:5:2);
if b>0 then writeln('b*b=', b*b:5:2);
writeln('c=', a:5:2);
if c>0 then writeln('a*a=', c*c:5:2);
readln; 
end.

Var
  a: Real;
  i: Byte;
BEGIN
For i:=1 to 3 do
begin
  Write('Введите ',i,' число: ');
  Readln(a);
  If a>=0 Then
  Writeln(a,'^2 = ',Sqr(a):2:2)
  Else
  Writeln(a,' - отрицательное');
end;
Readln
END.

uses crt;
var
   a,b,c:real;
begin
   clrscr;
   write('a=');
   read(a);
   write('b=');
   read(b);
   write('c=');
   read(c);
   writeln;
   if a>0 then writeln(sqr(a):2:2)
    else writeln(a,'<0');
   if b>0 then writeln(sqr(b):2:2)
    else writeln(b,'<0');
   if c>0 then writeln(sqr(c):2:2)
    else writeln(c,'<0');
   readkey;
end.