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

Question

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

Answer 1

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