Пожалуйста посчитайте написать программу в паскале. задание 2.

var
  a: integer;
 
begin
  write('Введите чисдо a: ');
  readln(a);
  if(a = -1) then write('Число корней:', 1,'.', 'Корень: ' 'x=', 0,'.')
  else if(a + 1 < 0) then write('Число корней:', 0, ' (нет решения)')
  else write('Число корней:', 2,'.','Корни:' ' x1=', sqrt(a + 1), ',x2=', -sqrt(a + 1),'.');
end.