Сделайте срочно плиизз!

var x1,y1,z1,x2,y2,z2,d: real; beginwriteln ('Введите координаты первой точки'); readln (x1,y1,z1); writeln ('Введите координаты второй точки'); readln (x2,y2,z2); d: =sqrt (x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1); wrileln (d); end.