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

program rastoyanie;{Ї® § ¤ ­­л¬ Є®®а¤Ё­ в ¬ в®зҐЄ ­ е®¤Ёв ¬Ё­Ё¬ «м­®Ґ
                    а ббв®п­ЁҐ ¬Ґ¦¤г ¤ўг¬п ­ҐЄ®в®ал¬Ё в®зЄ ¬Ё Ё ­®¬Ґа  нвЁе в®зҐЄ}
type mas=array[1..20] of real;
var A, B:mas;
    i, j, n:integer;
    r, r1, r2:real;

procedure Q(A:array [1..20] of real; B:array[1..20] of real;var r, r1, r2:real);
     var i, k:integer;
         j, m:integer;
Begin
  for i:=1 to n do
end;

BEGIN
 writeln('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® в®зҐЄ:');
 readln(n);
 writeln('ўўҐ¤ЁвҐ ¬ бЁў, ў Є®в®а®¬ н«Ґ¬Ґ­в ¬Ё пў«повбп Є®®а¤Ё­ вл "x" § ¤ ­ле в®зҐЄ');
 for i:=1 to n do
 readln(A[i]);
  writeln('ўўҐ¤ЁвҐ ¬ бЁў, ў Є®в®а®¬ н«Ґ¬Ґ­в ¬Ё пў«повбп Є®®а¤Ё­ вл "y" § ¤ ­ле в®зҐЄ');
 for j:=1 to n do
 readln(A[j]);
 Q(A, B,r, r1, r2);