Ошибка 46 в алго

[leinkor]

Написал код и пишет ошибку 46 в чем ошибка

Program NoName;

Var AB,x1,x2,y1,y2:integer;

Begin

Write('x1='); Readln(x1);

Writeln('x2='); Readln(x2);

Writeln('y1='); Readln(y1);

Writeln('y2='); Readln(y2);

AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

Writeln('AB=',AB);

end.

[Andrey F. Zelinsky]

leinkor:

Написал код и пишет ошибку 46 в чем ошибка

Program NoName;

Var AB,x1,x2,y1,y2:integer;

Begin

Write('x1='); Readln(x1);

Writeln('x2='); Readln(x2);

Writeln('y1='); Readln(y1);

Writeln('y2='); Readln(y2);

AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

Writeln('AB=',AB);

end.

навскидку -- АВ какого типа?

[TheXpert]

program HelloWorld;

Var x1,x2,y1,y2:integer;
Var AB:extended;

begin
   Write('x1='); Readln(x1);
   Writeln('x2='); Readln(x2);
   Writeln('y1='); Readln(y1);
   Writeln('y2='); Readln(y2);
   AB:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
   Writeln('AB=',AB);
end.