Question

Помогите, нужно это задание написать на языке pascal

Answer 1

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

begin

read(a,b,c);

D:=sqr(b)-4*a*c;

if D>=0 then

begin

x1:=(-b-sqrt(D))/(2*a);

x2:=(-b+sqrt(D))/(2*a);

write(x1,x2);

else write('Решений нет');

end.