ПОМОГИТЕ ПОЖАЛУЙСТА !!!!!!!!!!!!!!!!!
1. Вычислить корни квадратного уравнения ax²+bx+c=0? заданного коэффициентами а, b, с (предполагается, что а не равно 0 и что дискриминант уравнения неотрицательный).
ПЕРЕВЕСТИ В "ПАСКАЛЬ"

var a,b,c,x1,x2,d:real;beginread(a,b,c);d:=b*b-4*a*c;x1:=(-b-sqrt(d))/(2*a);x2:=(-b+sqrt(d))/(2*a);writeln(x1,' ',x2);end.