uses crt;
var
  x,y,n,chi:integer;
  chc,h:char;
begin
  randomize;
  textbackground(black);
  textcolor(white);
  clrscr;
  writeln;
  WriteLn('randomizer!');
  writeln;
  writeln('press enter to continue');
  repeat until readkey=#13;
  textbackground(blue);
  textcolor(white);
  clrscr;
  n:=80;
  repeat
	chi:=random(255);
	if (chi>96) and (chi<123) then
	begin
	  h:=#0;
	  inc(n);
	  textbackground(blue);
	  textcolor(white);
	  gotoxy(n mod 80,n div 80);
	  chc:=chr(chi);
	  write(chc);
	  textbackground(green);
	  textcolor(yellow);
	  gotoxy(29,12);write('ЪДДДДДДДДДДДДДДДДДДДДї');
	  gotoxy(29,13);write('іto exit press escapeі');
	  gotoxy(29,14);write('АДДДДДДДДДДДДДДДДДДДДЩ');
	  textbackground(black);
	  textcolor(white);
	  gotoxy(51,13);write('  ');
	  gotoxy(51,14);write('  ');
	  gotoxy(31,15);write('                      ');
	  gotoxy(1,1);
	  h:=readkey;
	end;
  until h=#27;
end.