Реализовать программу, осуществляющую вывод решения квадратного уравнения (параметры a, b, c вводятся с клавиатуры) Хелп ми!

Program z1;

var a, b, c:integer;

begin

readln (a, b, c) ;

if (b*b-4ac) >0 then

writeln ((-b+sqr (b*b-4ca)) / 4a, (-b-sqr (b*b-4ca)) / 4a)

end.

Program kvadratnoe;

var a, b, c, d:real;

begin

Writeln ('Введите коэффициенты:a, b, c') ;

readln (a, b, c) ;

d:=b*b-4*a*c; if d >0 then

begin

Writeln ('x1=', (-b-Sqrt (d)) / 2*a) ;

Writeln ('x2=', (-b+Sqrt (d)) / 2*a)

end;

if d=0 then Writeln ('x=', (-b/2*a)) ;

if d<0 then Writeln ('Действительных корней нет')

end.