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

Ответы:

var a, b, c: longint,

begin

  readln(a, b, c),

  if a&lt,0 then writeln (a*a),

  if b&lt,0 then writeln (b*b),

  if c&lt,0 then writeln (c*c),

end.