Даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic

Var a, b, c: longint;
begin
  readln(a, b, c);
  if a<0 then writeln (a*a);
  if b<0 then writeln (b*b);
  if c<0 then writeln (c*c);
end.