program GotoDemo;

uses
 Forms;

var
 Answer: Char;

label
 ThePlace;

begin
 ThePlace: Writeln('Akuku');
 Writeln('Jeszcze raz to samo? [T - tak]');
 Readln(Answer);
 if Answer in ['t','T'] then
  Goto ThePlace;

 Readln;
end.
