[Triton]

sciSSors, Vip), io, да вы просто красавчеги!

Program majors;
Uses klub:
Var nik:majors;
begin
Readln(nik);
generator_steba(nik):=true;
If bablo in karman(nik) then nik:= major;
End.

константы для ввода: "sciSSors", "Vip)", "io"