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

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.