Найдите расстояние между двумя A (x1, y1), B (x2, y2)

var x1, x2, y1, y2, s:real;

begin

writeln ('Введите координаты точки A') ; write ('X=') ;

read (x1) ;

write ('Y=') ;

read (y1) ;

writeln ('Введите координаты точки B') ;

write ('X=') ;

read (x2) ;

write ('Y=') ;

read (y2) ;

s:=sqrt (sqr (x2-x1) + sqr (y2-y1)) ;

writeln (s) ;

end.