program kvur;
var a,b,c,d,x1,x2 : real;
g : string;
begin
g:= 'корней нет';
write ('введите числа вместо вопр. знаков  ???x^2(+-)???x(+-)c=0');
readln (a,b,c);
d:=b*b-4*a*c;
if d>=0 then
x1:=b*(-1)+ sqr(d)/2*a; x2:= b*(-1)-sqr(d)/2*a;
else write (g);
write (x1,x2);
end.

Вот значит мой, кто мне может объяснить что с это программой? (программа решения квадратного уравнения).

по поводу альгоритма - полон инет, не ленись, ищи...
а по поводу синтаксиса, вот так будет лучше:

У меня проблема в том что при запуске он гонит ошибку (номер ошибки 113).
Смотрел в справочнике написано что этот символ не может стоять первым и указывает на else

TёMa открой глаза и читай по буквам тот код что я положил!
У тебя в конструкции if ... then не одна строка а несколько, поэтому тебе еще нужно использовать begin ... end - что и было мною проделано.
Рекомендую пойти в библиотеку, взять книгу по Паскалю и читать до просветления. Читать и писать проги, ибо лучше всего материал усваивается на практике.

]Morgan[

Можно просто использовать keyread(или readkey? блин забыл уже:) 10 лет прошло):
....
else writeln (g);
writeln (x1,x2);
keyread;
end.

Молодеж нужно сразу приучать к економному коду:)

SergGreen
можно и readkey, так даже код короче получается, прото я обычно использовал repeat until keypressed;

эт точно, сегодня на эту тему глянул, запустил турбо.ехе, развернул его во весь экран - чуть не прослезился... институт сразу вспомнился... ностальгия

]Morgan[

А я последние 3 года учебы (95-97) borland-ом пользовался - bp.exe
turbo.exe компилил быстрее, но не умел юзать фаил виртуальной памяти...а мои проекты в оперативку i386 уже не входили, а научить bp пользовать "верхнюю" память я не знал как...(exe-шники получались по 130 кб)...
Вот с тех пор и привык код "экономить":) Помнится к каждой переменной по творчески подходили: если значение не привысит 255 - то byte и никаких integer-ов:)
эх молодость,молодость...байтом туда...байтом сюда....

Было дело, игрушки на паскале писал, с использованием динамической памяти.... Ужос конечно, но в универе даже экзамен по программированию не сдавал, показал свои "чудо" работы и 5 балов. А сейчас на те проги глядишь и ужасаешся: по 30-50 Кб чистого текста да + еще модулей куча.