Mehitung Jarak 2 Titik

Program HitungJarak_Fungsi;
Uses WinCrt;
var TitikX1,TitikX2,TitikY1,TitikY2 : Integer;

Function Jarak(x1,x2,y1,y2:integer):Real;
Begin
Jarak := sqrt(sqr(x2-x1)+sqr(y2-y1));
End;

Begin
Write('masukkan nilai titik A (x1) : ');readln(Titikx1);
Write('masukkan nilai titik B (x2) : ');readln(Titikx2);
Write('masukkan nilai titik A (y1) : ');readln(Titiky1);
Write('masukkan nilai titik B (y2) : ');readln(Titiky2);
write('Jarak Antara Titik A dan B adalah : ',Jarak(Titikx1,Titikx2,Titiky1,Titiky2):4:2);
readln;
End.