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);