Как известно, наиболее сложно при управлении автомобилем (на дорогах с правосторонним движением) поворачивать налево, поскольку при этом нужно пропускать автомобили, двигающиеся навстречу. Поэтому в некотором городе запретили все повороты налево, то есть на перекрёстках можно либо продолжить движение в том же направлении, либо повернуть направо. Разворачиваться и поворачивать налево на перекрёстках запрещено. План города представляет собой прямоугольную сетку, в узлах сетки находятся перекрёстки, соединённые дорогами. Расстояние между перекрёстками равно 1. Но некоторые проезды между перекрёстками закрыты, передвигаться можно только по белым улицам (в том числе и по внешней белой границе), проезжать по серым улицам и перекрёсткам нельзя.

const

  n = 9;   //константа может быть любой

type

  mas = array[0..n] of integer;   //тип задал только для процедуры, без подпрограмм отдельный тип не нужен

procedure copy_mas(var a, b: mas);

var

  i, i1: integer;

begin

  i1 : = 0;

  for i : = 0 to n do  

    if (a[i] > = 0) and (a[i] < = 10) then  

    begin

      b[i1] : = a[i];

      i1 += 1;

    end;

end;

Начнем с формул.
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);