Xv-yvz
-av (b a-c)
таблица истиности

Var
    i, n: integer;
    a, s, e: real;

function Factorial(n: integer): longint;
var
    f, i: longint;
begin
    f := 1;
    for i := 1 to n do
        f := f * i;
    Factorial := f;
end;

function Power(x: real; n: integer): real;
var
    i: integer;
    p: real;
begin
    p := 1;
    for i := 1 to n do
        p := p * x;
    Power := p;
end;

begin
    readln(e, n);
    
    s := 0;
    for i := 1 to n do
    begin
        a := Factorial(n) / Power(n, n);
        if abs(a) < e then
            s := s + a;
    end;
    
    writeln(s);
end.

Первая задача:

var

i:integer;

a: array [1..7] of String;

begin

a[1]:='мама';

a[2]:='ель';

a[3]:='парта';

a[4]:='каникулы';

a[5]:='прыжок';

a[6]:='ура';

a[7]:='прикол';

for i:=1 to 7 do

writeln(a[i],' ', Length(a[i]));

end.

Вторая задача:

var

i, j, c:integer;

a:array [1..8] of integer;

begin

for i:=1 to 8 do

begin

writeln('Введите эл. массива A[', i, ']');

readln(a[i]);

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

for i:=1 to 7 do

for j:=i+1 to 8 do

if a[i]>a[j] then

begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

end.