Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program jatek;
- uses crt;
- label eleje;
- var c:char;
- y:char;
- x:char;
- begin
- clrscr;
- eleje:
- writeln('Merre indulsz el a (balra)');
- delay(1000);
- writeln('s (le)');
- delay(1000);
- writeln('d (jobbra)');
- delay(1000);
- writeln('w (elore)');
- readln(c);
- Case c of
- 'a':
- begin
- clrscr;
- writeln('Elore mentel');
- delay(2000);
- clrscr;
- writeln('Kocsmaba vagy. e (iszol) , h (szamot kersz)');
- readln(y);
- Case y of
- 'e':
- begin
- clrscr;
- writeln('Ittal.');
- delay(1000);
- writeln('Haza menni. t (taxi) , b (seta)');
- readln(x);
- case x of
- 't': writeln('Taxiztal');
- 'b': writeln('Setaltal');
- 'h':
- begin
- clrscr;
- writeln('Szamot kertel');
- delay(1000);
- end;
- end;
- end;
- end;
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement