var s,k:ansistring;i,t:longint;function get(var key,ch:char):char;var j:char;begin if key in ['a'..'z'] thenkey:=chr(ord(key)-32); if key'A' thenfor j:='B' to key docase ch of 'a': ch:='z'; 'A': ch:='Z';else ch:=pred(ch);end; exit(ch);end;begin assign(input,'vigenere.in'); ...