Могут ли существовать: а) два ящика с одинаковыми иминами на одном почтовом сервере, б) два ящика с одинаковыми паролями на одном сервере , в) два ящика с одинаковыми именами на разных почтовых серверах, г) два ящика с одинаковыми именами и паролями на разных почтовых сервера?

A)нет b)да c)да d)да

Const   n = 5;   en = 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz';   ru = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяабвгдеёжзийклмнопрстуфхцчшщьыъэюя'; var   s : string;   i : byte; begin   readln(s);   for i: =1 to length(s) do   begin       if pos(s[i],en)> 0 then           if pos(s[i],en)+n< =length(en) then               s[i]: =en[pos(s[i],en)+n] else s[i]: =en[pos(s[i],en)+n-length(en)];       if pos(s[i],ru)> 0 then           if pos(s[i],ru)+n< =length(ru) then               s[i]: =ru[pos(s[i],ru)+n] else s[i]: =ru[pos(s[i],ru)+n-length(ru)];   end;   writeln(s); end.

Program qq;   var x, y, z, c, a, b: real;   begin  writeln('введите стоимость билета бизнесс-класса: ');   readln(x);       if x > 0 then  begin    y: = x / 2;     writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');     readln(a, b);           if (a > =0) and (b > = 0) then      begin        c: = a*x + y*b;         z: = (120*y + 40*x) - c ;         writeln('доход авиакомпании: ', z);       end      else      writeln('решение невозможно');   end;   end.вот так всё работает. 1.  не там поставили end; 2. лишнее  else  writeln('решение невозможно'); 3. у меня ругался паскаль на то что в условия  при and не взяты в круглые скобки.  if (a > =0) and (b > = 0) then