Найдите ошибку

[#Sharp#]

program sqrt;
 var
 a,b,c,d,x,x1 : Real;

       begin
            readLn(a,b,c);
            if a<>0 then
            begin
            d := b*b -(4*a*c);
            if d<0 then
            begin
            WriteLn('No');
            end
            else
                begin
                if d=0  then
                begin
                x:= -b/2*a;
                WriteLn('x1= ', x)
                end
                else
                begin
                 x := (-b + sqrt(d)) (2*a);
                 x1 := (-b- sqrt(d))/ 2*a;
                 WriteLn('x1= ',x);
                 Write('x2= ', x1);
                 end
                end
            end;
            read(x);
       end.

Оформляем код правильно!

[vovk]

Это квест такой? "Догадайтесь что должна делать моя программа, потом найдите где она делает не так, и сообщите мне" Так чтоли?
Скажите сначала чего хотите добится, и где не получается.

PS Код оформляется тегом [code] значок # (в правке к сожалению пока не доступен, но доступен при наборе или в расширеном режиме (жмёте правка, затем ниже сообщения "расширенный режим", затем выделяете код и жмёте значок # на панелке над сообщением))

[#Sharp#]

программа для поиска корней квадратного уравнения
при компиляции выходит ощибка с сообщением: Предологаеться "."
вот в этой строчке:

x := (-b + sqrt(d)) /(2*a);

[Ghost of Night]

x := (-b + sqrt(d)) (2*a);

ничего не замечаете? а знак деления??

и ещё

Write('x2= ', x1);
end //здесь нужно ";"
end //и здесь нужно ";"
end;
read(x);  //и зачем эта строчка?
end.

[vovk]

По моему паскаль просто не знает функции sqrt,
2Ghost of Night

x := (-b + sqrt(d)) (2*a);//это да чегото не хватает

,

Write('x2= ', x1);
end //здесь нужно ";" //не обязательно 
end //и здесь нужно ";" //не обязательно
end;
read(x);  //и зачем эта строчка? //'это просто чтоб программма не завершась, посмотреть вывод, хотя хватило бы и просто readln
end.

[#Sharp#]

Сообщение от vovk

По моему паскаль просто не знает функции sqrt

а какую тогда функцию использовать для получения квадратного корня из числа?

[vovk]

Я неправильно выразился, не незнает функцию, а не понимает что вы хотите применить именно ФУНКЦИЮ, поосторожнее в названия и именах переменных с зарезервированными словами, в общем просто переименуйте программу,

program my_sqrt;

[ROMA2PVT]

program sqrt;

убери.Ну и дальше косяки исправляй