01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / NE

Program s;
Uses CRT;
Const
 nefiga=3;
Type
 masiv=array[1..10] of integer;
var
 _x,_y:masiv;
 i_no_ne_I,j_no_ne_J,kadr1,kadr2 :integer;
 pridurok   :real;

Procedure Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(x,y:masiv;var pridurok:real; var kadr1,kadr2:integer);
begin
  pridurok:=sqrt((_x[1]-_x[2])*(_x[1]-_x[2])+(_y[1]-_y[2])*(_y[1]-_y[2]));
  kadr1:=1; kadr2:=2;
  For i_no_ne_I:=1 to nefiga Do
  For j_no_ne_J:=1 to nefiga Do
  if (sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
  (_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]))<pridurok)
  and (sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
  (_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]))<>0)
  then begin pridurok:=sqrt((_x[i_no_ne_I]-_x[j_no_ne_J])*(_x[i_no_ne_I]-_x[2])+
  (_y[i_no_ne_I]-_y[j_no_ne_J])*(_y[i_no_ne_I]-_y[j_no_ne_J]));
  kadr1:=i_no_ne_I; kadr2:=j_no_ne_J end;
end;

begin
 TextMode(co80);ClrScr;i_no_ne_I:=0;
  For i_no_ne_I:=1 to nefiga Do begin
    _x[i_no_ne_I]:=0;
    _y[i_no_ne_I]:=0;
  end;
  For i_no_ne_I:=1 to nefiga Do begin
   TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг X ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
   TextColor(14);Read(_x[i_no_ne_I]);
   TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг Y ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
   TextColor(14);Read(_y[i_no_ne_I]);
   Writeln;
  end;
  Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(_x,_y,pridurok,kadr1,kadr2);
  Writeln(pridurok:4:2,' ¬Ґ¦¤г ',Kadr1,' Ё ',Kadr2);
  ReadLn;readln

end.