Найти периметр треугольника

var
  x1, y1, x2, y2, x3, y3, p : real;
begin
  writeln('введите координаты точки A (x1, y1)');
  readln(x1, y1);
  writeln('введите координаты точки B (x2, y2)');
  readln(x2, y2);
  writeln('введите координаты точки C (x3, y3)');
  readln(x3, y3);
  p := (sqrt(sqr(x2-x1)+sqr(y2-y1))) + 
       (sqrt(sqr(x3-x1)+sqr(y3-x1))) + 
       (sqrt(sqr(x3-x2)+sqr(y3-y2)));
  writeln('периметр равен: ', p:6:3)  
end.

var
  m : byte;
begin
  repeat
    writeln('введите номер месяца (1-12)');
    readln(m)
  until (m >= 1) and (m <=12);
  case m of
    1..2 : writeln('зима');
    3..5 : writeln('весна');
    6..8 : writeln('лето');
    9..11 : writeln('осень');
    12 : writeln('зима')
  end
end.

var
  x, y : real;
  f : boolean;
begin
  f := false;
  writeln('введите x и y точки:');
  readln(x, y);
  if x >= 0 then if (y <= (-x + 1)) and (y >= (x - 1)) then f := true;
  if (x < 0) and (x>=-1) then if (abs(y) <= sqrt(1 - sqr(x))) then f := true;   
  if f then
    writeln('точка принадлежит области')
  else
    writeln('точка НЕ принадлежит области')    
end.

var
  x,y: real;
begin
  write('Ââåäèòå x, y: ');
  readln(x,y);
  if ((x<0) and (x*x+y*y<=1)) or
    ((x>=0) and (x+abs(y)<=1)) then writeln('Ïðèíàäëåæèò') else
      writeln('Íå ïðèíàäëåæèò');
  readln;
end.