Program zadacha;
Var a,b,c:Integer;
Begin
 WriteLn('Введите число А');
 Read(a);
 WriteLn('введите число Б');
 Read(b);
 WriteLn('введите число С');
 Read(c);
  If a<0 Then WriteLn('Число А отрицательное его квадрат равен ',a*a);
  If b<0 Then WriteLn('Число Б отрицательное его квадрат равен ',b*b);
  If c<0 Then WriteLn('Число С отрицательное его квадрат равен ',c*c);
ReadLn;
end.