program wygaszacz;

{program na haslo, ktory po jego wpisaniu wyswietla gwiazdki zamiast wpisywanych znakow}


uses CRT, DOS;

var
text:string;
x,z,y:word;
begin
 textbackground(1);
 clrscr;

 textcolor(7);
 randomize;
   gotoxy(25,12);
   writeln('Podaj tekst do wyswietlenia:');

   gotoxy(25,14);
  read(text);

 clrscr;
  repeat
  gotoxy(25,2);
  textcolor(7);
   writeln('ABY ZAKONCZYC WCISNIJ KLAWISZ');

  x:=random(70);
  y:=random(25);
  z:=random(15);
   textcolor(z);
    textbackground(1);
  gotoxy(x,y);
   writeln(text);
  delay(1500);
 clrscr;

  until keypressed;

 readln;
end.