1) Какая задача решается по следующей программе? Program p;
Var a,b,c integer:
begin
radln (a,b);
if a > b then c: = a else c:=b
write (c);
end

А) Нахождение наименьшего из двух чисел a,b
B) Нахождение квадрата разности двух чисел a,b
C) Нахождение наибольшего из двух чисел a,b
Д) Нахождение разности квадратов двух чисел a,b

2) Определить тип синтаксической ошибки в программе
Program A; var b, c: integer;
begin readln(b); if b>=0 then c; = b*b;
else c: = -b*b*b;
writeln ('c=', c);
end.

(Алгоритм записан как в задании, с таким же положением строк)

А) Запрещенный идентификатор
B) Неописанный идентификатор
С) Ошибка в записи оператора
D) Неверная константа
Е) Ожидался BEGIN

2)

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.

Для стека:
const
  MAX_SIZE = 100;
var
  size, n: integer;
  stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);
begin
  inc(size);
  stack[size] := a;
end;

procedure view;
var
  i: integer;
begin
  for i := 1 to size do
    write(stack[i], ' ');
  writeln;
end;

Для очереди:
const
  MAX_SIZE = 100;
var
  head, tail: integer;
  queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);
begin
  queue[tail] := a;
  inc(tail);
end;

procedure view;
var
  i: integer;
begin
  for i := head to tail - 1 do
    write(queue[i], ' ');
  writeln;
end;

И стек и очередь реализованы с массива. Нужно следить, чтобы размер структуры не был больше размера массива