11. Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника и некоторая дополнительная информация. Личный код состоит из 10 символов, каждый из которых мо- пожет быть одной из 22 допустимых заглавных латинских букв или одной из 10 цифр. Для записи личного кода на пропуске отведено минимально возможное целое число байт. При этом используют посимвольное кодирование, все символы кодируют одинаковыминимально возможным количеством бит. Кроме личного кода на пропуске хранится дополнительная информация, занимающая 20 байт на одного сотрудника. Определите объём памяти (в байтах), необходимый для хранения сведений о 50 сотрудниках. В ответе запишите только целое число - количество байт.

Const
   N = 13;
Var
   A,B:array[1..N] of integer;
   i:integer;
   S1,S2:real;
Begin
Randomize;
S1:=0;
S2:=0;
Write('A(');
For i:= 1 to N-1 do
    Begin
    A[i]:=random(201)-100;
    Write(A[i],',')
    End;
A[N]:=random(201)-100;
Write(A[N],')');
WriteLn;

Write('B(');
For i:= 1 to N-1 do
    Begin
    B[i]:=random(201)-100;
    Write(B[i],',')
    End;
B[N]:=random(201)-100;
Write(B[N],')');
WriteLn;
WriteLn;
Write('|A| = ');
For i:= 1 to N do
    Begin
    S1:=S1+A[i]*A[i];
    End;
S1:=Sqrt(S1);
WriteLn(S1);
Write('|B| = ');
For i:= 1 to N do
    Begin
    S2:=S2+B[i]*B[i];
    End;
S2:=Sqrt(S2);
WriteLn(S2);
WriteLn;
Write('Ближайшая точка: ');
if S1 < S2 then WriteLn('A')
else WriteLn('B')
End.

Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('ответ: ');
   Case C of
   1:WriteLn(A+B);
   2:WriteLn(A-B);
   3:WriteLn(A*B);
   4:WriteLn(A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Вывод результат, точно как в условии:

Var A,B:real;
    C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('ответ: ');
   Case C of
   1:
     if B < 0 then WriteLn(A,B,'=',A+B)
     else WriteLn(A,'+',B,'=',A+B);
   2:
     if B < 0 then WriteLn(A,'+',-B,'=',A-B)
     else WriteLn(A,B,'=',A-B);
   3:
     if B < 0 then WriteLn(A,'*(',B,')=',A*B)
     else WriteLn(A,'*',B,'=',A*B);
   4:
     if B < 0 then WriteLn(A,':(',B,')=',A/B)
     else WriteLn(A,':',B,'=',A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Пример:

1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!