Помогите дорешать и поправить программу на паскале решение…

Var a,b,c,y1,y2,d,i: real; beginread (a,b,c); d: =b*b-4*a*c; if d>0 thenbeginy1: =(-1*b+sqrt (d) / (2*a); y2: =(-1*b-sqrt (d) / (2*a); if y1>=0 then begin writeln (sqrt (y1); writeln (sqrt (y1)*-1); end; if y2>=0 then begin writeln (sqrt (y2); writeln (sqrt (y2)*-1); end; end elseif d=0 thenbeginy1: =(-1*b) / (2*a); if y1>=0 then begin writeln (sqrt (y1); writeln (sqrt (y1)*-1); end; endelsewriteln ('Корней нет'); end.