[Tyke]

Program P2;
var a,b,c,D,x,z,v:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
D:=b*b-4*a*c;
writeln('D=',D,'');
x:=-b/-2*a;Тут пишет что тип не соответствует
z:=-b-D/2*a;и тут
v:=-b+D/2*a;и тут
if D<0
then writeln('Ne Imeet Kornei');
if D=0
then writeln('Imeet Odin Koren x=',x,'')
if D>0
then writeln('Imeet Dva Korni x1=',z,' x2=',v,'');
readln;
end.

Ну в общем эта программа для решения квадратных уравнений.Сначала находит дискриминант потом в зависимости от того (>0 =0 <0) вычисляет корни.Формулы там написаны,что не так сделал скажите.Ну то что тип не такой а какой надо?