7 lines
148 B
ObjectPascal
7 lines
148 B
ObjectPascal
Program pr1;
|
|
var x1, y1, x2, y2: integer;
|
|
begin
|
|
writeln('x1, y1, x2, y2');
|
|
readln(x1,y1,x2,y2);
|
|
writeln('Äëèíà ', sqrt(sqr(x2-x1)+sqr(y2-y1)));
|
|
end. |