Написать программку паскальС клавиатуры вводится три числа- коэффициент квадратного

Корня (решения) у квадратного уравнения всегда ДВА. Учите математику! Но при нулевом дискриминанте оба корня совпадают, а при отрицательном они являются комплексно-сопряженными числами.

Вот если Для вас нужна программа, которая определяет количество разных действительных корней - это иное дело.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

var

 a,b,c: integer;

 x,d: real;

begin

 repeat

   write('Введите коэффициент a (alt;gt;0): ');

   readln(a);

 until alt;gt;0;

 write('Введите коэффициент b: ');

 readln(b);

 write('Введите коэффициент c: ');

 readln(c);

 d:=b*b-4*a*c;

 writeln('Решение уравнения:');

 if d=0 then

   writeln('Корень один: х = ',-b/2/a) else

 if dlt;0 then

   writeln('Корней на обилье действительных чисел нет') else  

 begin

   writeln('Корней два:');

   writeln('1-й корень: x1 = ',(-b-sqrt(d))/2/a);

   writeln('2-й корень: x1 = ',(-b+sqrt(d))/2/a);

 end;

 readln;

end.