Определи расстояние на плоскости между двумя точками с заданными координатами

{PascalABC}

Program Puzzle;

var  

 R,day:integer;  

 week:array[1..7] of string;

 i:integer;

 s:string;

begin

 week[7]:='Воскресенье';

 week[6]:='Суббота';

 week[5]:='Пятница';

 week[4]:='Четверг';

 week[3]:='Среда';

 week[2]:='Вторник';

 week[1]:='Понедельник';

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');

 writeln('Удвойте этот номер');

 writeln('Увеличьте результат на 5');

 writeln('Умножьте полученное число на 5');

 writeln('Теперь то, что получилось, умножьте на 10');

 writeln('Введите полученный результат'); readln(R);

 day:= round((R-250)/100);

 writeln('');

 case day of

   1..7: writeln('      Вы задумали ',week[day]);

   else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

 end;

 writeln('');

end.

Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
   readln(n);
   for i := 1 to n do
       read(a[i]);
   min := a[1];
   max := a[1];
   min_i := 1; {номер минимального}
   max_i := 1;
   for i := 2 to n do
   begin
       if min > a[i] then
       begin
          min := a[i];
          min_i := i;
       end;
       if max < a[i] then
       begin
          max := a[i];
          max_i := i;
       end;
   end;
   tmp := a[max_i];
   a[max_i] := a[min_i];
   a[min_i] := tmp;
   for i := 1 to n do
       write(a[i], ' ');
end.