program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f, g : text; t : array of char; bv : array [1..28] of char; bm : array [1..28] of char; i : integer; k : char; bukvel, bukmal : set of char; begin bukvel := ['A'..'Z']; bukmal := ['a'..'z']; k := 'a'; k := 'a'; assign(f, 'input.txt'); reset(f); assign(g, 'output.txt'); rewrite(g); end.