Дано четное натуральное число. Проверить является ли число квадратом- Pascal(Паскаль)

var 
 a: integer;
 b: real;
begin
 read(a);
  if (a>=0) then
   begin
    b:=sqrt(a);
     if (b-Round(b)=0) then
      begin
       writeln('Число ',a,' является квадратом числа ',Round(b))
      end
     else
      begin
       writeln('Число ',a,' не является квадратом!');
      end;
     if (a<0) then
      begin
       writeln('Число отрицательное!');
      end;
   end;
end.