program Computer (input, output);

var

gedanke : 1..10;

ich, du : boolean;

begin

gedanke:= 1;

repeat

begin

writeln ('ich bin in Deinem kopf');

writeln ('du versuchst meinen gedanken zu denken!');

writeln ('gib mir meine gedanken wieder!');

writeln ('denk doch deine eigenen!');

gedanke := gedanke +1

end;

until (gedanke = 10)

end.{Computer}}