Вычислить значения функции при любых целочисленных параметрах, используя условный оператор B полной форме и неполной форме (2 программы):

Const
  m = 6;
  n = 4;

var
  i, j: integer;
  a: array[1..m, 1..n] of integer;
  b: array[1..n] of longint;
  p: longint;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln('Результирующий массив');
  for j := 1 to n do
  begin
    p := 1;
    for i := 1 to m do p := p * a[i, j];
    b[j] := p;
    write(b[j], ' ')
  end;
end.

Тестовый пример:

Исходный массив
 -22 -23 -14  16
 -17  42 -13  19
 -35   9 -47  -7
  23  -9  19  25
   3  -7 -31  43
  15  42  40   0
Результирующий массив
-13548150 -23004324 201532240 0

var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
   a:=pos('(',s);
   b:=pos(')',s);
   if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
   if (a=0) and (b>0) then writeln('Скобка не открыта');
   if (a>0) and (b=0) then writeln('Скобка не закрыта');
   if (a=0) and (b=0) then writeln('Текста в скобках нет');
  end;
end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
  i:=pos(' ',t);
  delete(t,1,i);
  until i=0;
k:=length(t);
for i:=1 to k do
  if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.