program abrakadapra; uses crt; var n,x,i,j,dop2:integer; buk,h:string; begin clrscr; readln(n); i:=26; j:=1; dop2:=97; h:='a'; writeln; writeln(h); writeln; repeat inc(dop2); h:=chr(dop2)+h+h; writeln(h,' '); writeln; delay(10000); inc(j); until j=26; writeln('буква ',h[n]); readln; end.