Две точки заданы своими координатами. Составить программу определения расстояния между ними — Pascal(Паскаль)

var x1, y1, x2, y2, l: integer;
begin
write('vvedite tochki: ');
readln(x1, y1, x2, y2);
writeln('rasstoyanie: ', sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));
readln;
end.