Квадратное уравнение.

[Hotab]

Всем привет!Начал изучать Паскаль,и решил тупо написать программу для решения квадратных ур-ний..
Посмотрите код,скажите что не так!

program yr;
var
a,b,c,x1,x2: integer;
 begin
Write('Введите переменную, a=');
Readln (a);
Write('Введите переменную, b=');
Readln (b);
Write('Введите переменную. c=');
Readln (c);
If a<0 and a>o Then
x1: (-b + sqr(b^2-4*a*c))/2*a;
x2: (-b - sqr(b^2-4*a*c))/2*a;
else 
Write('Переменная a,не должна равняться нулю');
end.

[Poma][a]

a<0 and a>o в чем смысл?
x1: (-b + sqr(b^2-4*a*c))/2*a;
x2: (-b - sqr(b^2-4*a*c))/2*a;
что означает : ? может := кстати где вы выводите x1 и x2?
а проверка что D < 0 или = 0

З.Ы. раз начал то придерживайся одного стиля например if, then, var,program - зарезервированные слова и их принято писать с маленькой буквы. Так же отделяй подзадачи, например все прочитал -> пустая строка, сосчитал -> пустая строка. и используй систему вложености

[Hotab]

Ага спасибо!
1.Ну на 0 делить нельзя,а если указать переменной а,значение 0,то уравнение не имеет решения.
2.Да да,верно!Поправил в программе ABC.
3.Спасибо.Буду знать!

[Hotab]

Получилось вот что

program pr6;
var
a,b,c,x1,x2: real;
 begin
Write('Введите переменную, a=');
Readln (a);
Write('Введите переменную, b=');
Readln (b);
Write('Введите переменную. c=');
Readln (c);
If a<>0 Then
x1:= (-b + sqr(b*b-4*a*c))/2*a;
x2:= (-b - sqr(b*b-4*a*c))/2*a;
Write('x1=',x1);
Write('x2=',x2);
end.

Как мне сделать проверку!Чтобы а не равнялось нулю я делаю так!

program pr6;
var
a,b,c,x1,x2: real;
 begin
Write('Введите переменную, a=');
Readln (a);
Write('Введите переменную, b=');
Readln (b);
Write('Введите переменную. c=');
Readln (c);
If a<>0 Then
x1:= (-b + sqr(b*b-4*a*c))/2*a;
x2:= (-b - sqr(b*b-4*a*c))/2*a;
Write('x1=',x1);
Write('x2=',x2);
else a=0 
Write('а,не должна равняться нулю');
end.

Прога ругается на else

[rubius2008]

If a<>0 Then begin
x1:= (-b + sqr(b*b-4*a*c))/2*a;
x2:= (-b - sqr(b*b-4*a*c))/2*a;
Write('x1=',x1);
Write('x2=',x2);
end
else Write('а,не должна равняться нулю');

[Poma][a]

перед else ';' не ставится. и если у вас между then ....else больше 1 операции, то необходимо ставить begin ... end; (если затем идет else то ; не ставиться)

[Niro]

перед else ';' не ставится.

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