При помощи какой инструкции можно вызвать функцию вычисляющую площадь комнаты

program Labirint;
uses
crt;
 
 type
   arr =  array[1..10,1..10] of char;
 
procedure vyvodarr (a: arr; n: integer);  // Процедура для вывода матрицы на экран.
var
  i,j: integer;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      Write(a[i,j]:3);
      end;
    Writeln;
    end;
Writeln;
end;
 
var
  //a1: arr = (('*','*','*','*','*'),('*','*','.','.','*'),('*','.','*','.','*'),('*','.','.','*','*'),('*','*','*','*','*'));
  a1: arr;  // Переменная для хранения исходного лабиринта.
  b1: arr;  // Переменная для хранения промежуточных переменных при прохождении лабиринта.
  k: integer; // Переменная для хранения значения количества посещенных ячеек.
  i,j,ip,jp: integer; // Промежуточные переменные для организации циклов.
  ibeg,jbeg: integer; // Переменные для хранения адреса начальной, заведомо пустой ячейки.
  t: integer;  //  Промежуточная переменная для хранения числа окружающих стен.
  Stop: boolean;  // Промежуточная переменная для остановки работы алгоритма.
  n1: integer;   // Переменная для хранения размера лабиринта.
begin
Writeln('Введите размер лабиринта:');
Readln(n1);
Writeln('Введите структуру лабиринта( "*" - стена, "." - комната):');
for i:=1 to n1 do
    for j:=1 to n1 do
      Readln(a1[i,j]);
 
Readln(n1);
vyvodarr(a1,n1);
for i:=1 to n1 do
    for j:=1 to n1 do
      b1[i,j]:=' ';
 
Writeln('Введите координаты точки вхождения:');
Writeln('Номер строки:');
Readln(ibeg);
Writeln('Номер столбца:');
Readln(jbeg);
 
i:=ibeg;
j:=jbeg;
t:= 0;
k:= 0;
 
 
repeat
 
  if a1[i,j+1]='*' then
     begin
       inc(t);
       b1[i,j+1]:= 'W';    // Стена('W'- wall)
     end
  else
    if not (b1[i,j+1] in ['D','V','W']) then
     b1[i,j+1]:= 'R';      // Дорога ('R' - road)
 
  if a1[i,j-1]='*' then
     begin
       inc(t);
       b1[i,j-1]:= 'W';
     end
  else
  if not (b1[i,j-1] in ['D','V','W']) then
     b1[i,j-1]:= 'R';
 
  if a1[i+1,j]='*' then
     begin
       inc(t);
       b1[i+1,j]:= 'W';
     end
  else
  if not (b1[i+1,j] in ['D','V','W']) then
     b1[i+1,j]:= 'R';
 
  if a1[i-1,j]='*' then
     begin
       inc(t);
       b1[i-1,j]:= 'W';
     end
  else
  if not (b1[i-1,j] in ['D','V','W']) then
     b1[i-1,j]:= 'R';
 
  if t = 3 then
       begin
         b1[i,j]:= 'D';   // Были в этой ячейке, но здесь тупик 'D' - dead end.
         inc(k);
       end;
  t:= 0;
  if (a1[i,j] = '.') and (b1[i,j] <> 'V') and (b1[i,j] <> 'D') then
     begin
     b1[i,j]:= 'V';  // Были в этой ячейке (v - "visit").
     inc(k);
     end;
  stop:= true;
for ip:=1 to n1 do
  for jp:=1 to n1 do
    if b1[ip,jp] = 'R' then
       begin
       i:=ip;
       j:=jp;
       stop:=false;
       end;
 
ClrScr;
writeln('"W"- wall, "R" - road, "V" - visit, "D" - dead end.');
vyvodarr(b1,n1);
Delay(1000);
 
until stop;
 
writeln('Количество свободных ячеек: ',k);
Readln;
end.

Перед вами страница с вопросом Составить программу вычисляющую площадь комнаты?, который относится к
категории Информатика. Уровень сложности соответствует учебной программе для
учащихся 10 — 11 классов. Здесь вы найдете не только правильный ответ, но и
сможете ознакомиться с вариантами пользователей, а также обсудить тему и
выбрать подходящую версию. Если среди найденных ответов не окажется
варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском»,
который откроет все похожие ответы, или создайте собственный вопрос, нажав
кнопку в верхней части страницы.