Паскаль ABC (нач. курс) прошу помощи, прога внутри и вопрос

Да ничего удивительного, как программу назовешь, так она и будет работать, а в твоем случае даже компилироваться.

var
a, b, c, D, x1, x2: real;
begin
writeln('введите а');
readln(a);
writeln('введите b');
readln(b);
writeln('введите с');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('корней нет')
else if D=0 then begin
x1:=-b/2*a;
writeln('корень уравнения' ,x1)
end
else begin
x1:=-b+SQRT(D)/2*a;
x2:=-b-SQRT(D)/2*a;
writeln('1 корень' ,x1);
writeln('2 корень' ,x2);
end
end.

var a,b,c,D,x1,x2:real;
begin
write('а: =');readln(a);
write('b:=');readln(b);
write('c:=');readln(c);
D:=sqr(b)-4*a*c;
if D<0 then writeln('корней нет')
else if D=0 then begin
x1:=-b/2*a;
x2:=x1;
writeln('Корень: ' ,x1);
end
else begin
x1:=-b+SQRT(D)/2*a;
x2:=-b-SQRT(D)/2*a;
writeln('Корни: ',x1,'; ',x2);
end;
end.

Вывод ещё храмает, пробелы нннадо:)

х, х1 и х2 надо в ВАР вписать

Вот Это решит Квадратное уровнение при любом значении переменных
program tt;
var a,b,c,x1,x2,D,f : real;
begin
write('Введите А=');
readln(a);
write('Введите B=');
readln(b);
write('Введите C=');
readln(c);
if (a=0) and (b=0) and (c=0) then
writeln('Б/м решений.');

if (a=0) and (b<>0) and (c=0) then begin
x1:=0;
writeln('x1=',x1);
end;

if (a=0) and (b=0) and (c<>0) then begin
x1:=0;
writeln('x1=',x1);
end;

if (a=0) and (b<>0) and (c<>0) then begin
x1:=(-c)/b;
writeln('x1=',x1);
end;

if (a<>0) and (b=0) and (c=0) then begin
x1:=0;
writeln('x1=',x1);
end;
if (a<>0) and (b<>0) and (c=0) then begin
x1:=0;
x2:=(-b)/a;
writeln('x1=',x1);
writeln('x2=',x2);
end;
if (a<>0) and (b=0) and (c<>0) then begin
f:=(-c)/a;
if (f<0)then
writeln('Нет корней')
else begin
x1:=sqrt(f);
x2:=-sqrt(f);
writeln('x1=',x1);
writeln('x2=',x2);
end;
end;
if (a<>0) and (b<>0) and (c<>0) then begin
D:=(-b)*4*a*c;
if (D<0) then
writeln('Нет корней')
else begin
x1:=((-b)+sqrt(D))/(2*a);
x2:=((-b)-sqrt(D))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2);
end
end;
end.