Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0

Program kv_ur; uses crt; vara,b,c,d: integer; x1,x2,x: real; beginWriteln ('Введите a,b,c'); Read (a,b,c); d: =sqr (b) -4*a*c; if d>0 thenbeginx1: =-b-sqrt (d) /2*a; x2: =-b+sqrt (d) /2*a; Writeln ('Корни уравнения: x1=',x1,' x2=',x2); endelseif d<0 thenWrite ('Нет корней') elsebeginx: =-b/2*a; Writeln ('Корень уравнения: x=',x); end; end.