Подскажите, пожалуйста, что исправить, чтобы программа заработала в PascalABC?

Question

program kvadratnoe_uravnenie3; 
var a,b,c,D:integer; x:real; 
begin 
 read(a,b,c); 
 D:=sqr(b)-4*a*c; 
 x<>0; 
 IF D>=0 THEN x:=(-1*b+-sqrt(D))/2*a 
 ELSE var x:string; x:='Не имеет решений в области действительных чисел'; 
 writeln(x); 
end.

Иван Александров · Accepted Answer

x<>0; 
IF D>=0 THEN x:=(-1*b+-sqrt(D))/2*a 
ELSE var x:string; x:='Не имеет решений в области действительных чисел'; - Это бред 
 
program kvadratnoe_uravnenie3; 
var a,b,c,D:integer; x1,x2:real; 
begin 
read(a,b,c); 
D:=sqr(b)-4*a*c; 
IF D>0 THEN begin 
x1:=(-b+sqrt(D))/(2*a); 
x2:=(-b-sqrt(D))/(2*a); 
writeln(x1:3:3,' ',x2:3:3); 
end else 
if D=0 then writeln(-b/(2*a):3:3) else 
writeln('Действительных корней нет'); 
end.

Валентина · Answer

И ещё определение переменных var a,b,c:integer; D,x:real;