Напишите пожалуйста программу, которая вычислит корни квадратного уравнения.а,b,c вводим с клавиатуры. (на паскале)

все что после begin, заменить на то что тут написанно!!! и в описании p,s заменить на x1,x2,d !!! d:=sqrt(b*b-4*a*c); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); writeln('x1 = ', x1, '; x2 = ', x2); end.

Program abc;Uses CRT;Var : a,b,c, : integer;P,s : réal;BeginWriteln (" введите значения а, b , c);Redln (a,b,c); p:=(a+b+c)/2; writeln(p); S:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(S);end.