СРОЧНО ПЛИЗ НАРОД!!!!
Даны коэффициенты квадратного уравнения a,b,c.Напишите программу которая решает это квадратное уравнение.(в Паскале)

program s;var a,b,c,x,z,d:real;beginwrite('Введите a,b,c');read(a,b,c);d:=(b*b)-(4*a*c);if d<0 then write(' Уравнение не имеет корней')elsex:=(-b+sqrt(d))/(2*a);z:=(-b-sqrt(d))/(2*a);write(' х равно ',x, ', ', z);end.