Найдите соответствие

Корпоративный ящик
протокол Интернет, доступа к сообщениям
IMAP
протокол почтовой службы входящих сообщений
Провайдер протокол передачи почтовых исходящих сообщений
Коммерческий ящик
сервер по месту работы
POP 3
сервер платной почтовой службы
SMTP
организации-поставщика сетевых услуг​

Для контроля массив заполняется случайными числами. Если заполнять автоматически не надо, то выделенные строки можно исключить, размерность массива изменить и вводить вручную (или считывать из файла)
DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
    FOR J = 1 TO 5
        A(I, J) = RND(1) * 10 -  RND(1)*5
        PRINT A(I, J); " ";
        IF I = 1 AND J = 1 THEN
            MAX = A(I, J)
            MIN = A(I, J)
        END IF       
        IF MIN > A(I, J) THEN MIN = A(I, J)
        IF MAX < A(I, J) THEN MAX = A(I, J)
    NEXT J
    PRINT
NEXT I
PRINT "MAX="; MAX, "MIN="; MIN
L = INT(MAX) - ABS(FIX(MIN))
PRINT "L="; L

S:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.
2
a:array[1..1000] of integer;
begin
k:=1;
for i:=100 to 999
if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end;
for i:=1 to k do
writeln(a[i]);
readln;
end.

3
s, a:string;
i, k:integer;
begin
readln(s);
readln(a);
for i:=1 to length(s) do
if s[i]=a then s[i]:='';
writeln(s);
readln;
end.