maths

program mil;
var
x1, x2, y1, y2, n,choose :real;
length, middlex, middley:real;
begin
n:=1;
repeat
writeln('Милости прошу к нашему шалашу, что хочешь 1 - длина линий, 2 - координата середины, 3 - выход из программы ');
readln(choose);
if (choose = 3) then
begin;
exit;
writeln('Эххх.... ');
end;
writeln('введите координаты точки А');
read(x1,y1);
writeln('введите координаты точки В');
read(x2,y2);
middlex:=(x1+x2)/2;
middley:=(y1+y2)/2;
length:=sqrt((y1-y2)*(y1-y2)+(x1-x2)*(x1-x2));
if (choose = 2) then
writeln(' Координаты середины отрезка АВ x = ',middlex:0:1, ' y = ',middley:0:1);
if (choose = 1) then
writeln('длина отрезка АВ= ',length:0:5,' или √(',(length * length):0:5,')');
writeln(' ');
until n=0;
end.