var a,b,c,D,x1,x2: longint;

begin
read (a, b, c);
D:=sqr(b)-4*a*c;
x1:= (-b + sqrt(D)) div 2 * a;
x2:=(-b - sqrt(D)) div 2 * a;
write(x1,' ', x2);
end.
Почему выдает ошибку?

Все просто, при извлечении корня из целого числа, в случае с 16 и 25, получается целое число, следовательно можно использовать integer, но если при извлечении корня появляется вещественное число (1.265; 26.4 ;4.51), то перед паскалем задача преобразовать тип числа integer

в real, чего делать нельзя

Я даже ввести числа не могу. Программа не запускается и выдает ошибку.

Не ломай себе мозги =) Вычисление корней квадратного уравнения совершаются с помощью извлечения корня и деления, а эти операции присущи типу переменных rea;

Спасибо

Дискриминант равен квадрату коэффициента при переменной первой степени. При чем здесь "div"? В принципе поиск корней выполнен неправильно