напишите класс который принимает с клавиатуры целое число и выводит на экран его квадрат но только в случае,если введенное число отрицательно.В противном случае на экран выводится сообщение ошибка

var a:integer;

begin

readln(a);

if (a<0) then a:=sqr(a);

writeln(a) else writeln('Error');

end.

type Cl = class  a:integer;  constructor Create(b:integer);  procedure SetVal(b:integer);  function GetVal:integer;  procedure Sq;end;constructor Cl.Create(b:integer);begin  a := b;end;procedure Cl.SetVal(b:integer);begin  a := b;end;function Cl.GetVal:integer;begin  GetVal := a;end;procedure Cl.Sq;begin  if a < 0 then    writeln('a ^ 2 = ', a * a)  else    writeln('Error');end;var  Obj:Cl;  a :integer;begin  write('a = ');  readln(a);  Obj := Cl.Create(a);  Obj.Sq;  Readln;  Obj.Destroy;end.