1.по какому протоколу почта отправляется на сервер? 2.что представляет собой почтовый ящик электронной почты? 3.этапы получения электронной почты? 4.по какому протоколу почта забирается с сервера? 5.для чего нужен сервер промежуточной доставки? 6.какой протокол позволяет работать с почтовым ящиком непосредственно на сервере?

1. smtp 2. базу данных 3. сначала проверяется - является ли почтовый домен локальным. если да - письмо обрабатывается. если нет - определяется  маршрут следования письма. если находится получатель (по домену), то письмо доставляется на сервер хранения писем. можно работать непосредственно с самими письмом  на сервере, а можно - с его  копией (зависит от протокола) 4. pop3 5. возможно, для тестирования и проверки на наличие ошибок. уничтожение - как вариант 6. imap

вот код:

var a,b,c,d,e,min,max: integer;

begin

read (a,b,c,d,e);

if (a> b) and (a> c) and (a> d) and (a> e) then max: = a;

if (b> a) and (b> e) and (b> c) and (b> d) then max: = b;

if (c> a) and (c> b) and (c> d) and (c> e) then max: = c;

if (d> a) and (d> c) and (d> b) and (d> e) then max: = d;

if (e> b) and (e> a) and (e> d) and (e> c) then max: = e;

if (a< b) and (a< c) and (a< d) and (a< e) then min: = a;

if (b< a) and (b< e) and (b< c) and (b< d) then min= b;

if (c< a) and (c< b) and (c< d) and (c< e) then min: = c;

if (d< a) and (d< c) and (d< b) and (d< e) then min: = d;

if (e< b) and (e< a) and (e< d) and (e< c) then min: = e;

writeln ('минимальное число: ',min);

writeln ('максимальное число: ',max);

end.

program one;

type tintmassiv = array of real;

var a,b,c,x,y: tintmassiv; n,i: integer;

begin

writeln('введите длину массивов(n)');

readln(n);

setlength(a,n); // создаем динамические массивы длины n

setlength(b,n);

setlength(c,n);

setlength(x,n);

setlength(y,n);

for i : = 0   to n-1 do  

  begin

  writeln('введите ',i+1, ' массива a');

  readln(a[i]);  

  writeln('введите ',i+1, ' массива b');

  readln(b[i]);  

  writeln('введите ',i+1, ' массива c');

  readln(c[i]);

  end;

for i : = 0 to n-1 do

  begin

  x[i] : =   min(a[i],b[i]) / 2;

  y[i] : =   min(a[i],c[i]) / 2;

  end;

for i : = 0 to n-1 do

  begin

  writeln('x[',i,']=',x[i]);

  writeln('y[',i,']=',y[i]);

  end;

a : = nil; //освобождаем память

c : = nil;

b : = nil;

x : = nil;

y : = nil;

end.