НЕ Аи (Анв) и (Вили А) и не В или А

что? это загадка?

Объяснение:

Var l: char; i,n,a,k,m,d,q: integer; s: string; label z; begin randomize; writeln ('введите количество паролей'); writeln ('из чего состоят пароли? '); z: writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры'); readln (a); if (a< > 1)and (a< > 2)and (a< > 3)then begin writeln ('неправильный ввод. ввести заново (0 - да / 1 - нет)? '); read (q); if q=0 then goto z else halt; end else begin writeln ('введите количество паролей: '); readln (n); writeln ('введите длину пароля: '); readln (k); writeln ('пароли: '); if a=1 then begin for i: =1 to n do begin for d : = 1 to k do s: =s+chr(random(26)+97); writeln(s); s: =''; end; end; if a=2 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(10)+48); writeln(s); s: =''; end; end; if a=3 then begin for i: =1 to n do begin for d : = 1 to k do s : = s + chr(random(26)+97)+chr(random(10)+48); delete(s,k,k); writeln(s); s: =''; end; end; end; end.