Program Game dalam Pascal.

program suit_indonesia;
uses wincrt;
var pilihanku:string;
    komputer :string;
    a:integer;
    lagi : char;
    z,x,y:string;
begin
     repeat
     clrscr;
     randomize;
     a := Random(3);
     y := 'telunjuk';
     x := 'jempol';
     z := 'kelingking';

     writeln('----------------------------------------------------------');
     writeln('-----------------Silahkan Anda Pilihlah ------------------');
     writeln('----------------------------------------------------------');
     writeln('----------------------- telunjuk -------------------------');
     writeln('------------------------ jempol --------------------------');
     writeln('---------------------- kelingking ------------------------');
     writeln('----------------------------------------------------------');
     writeln;
     write('             Masukkan Pilihan anda = '); readln(pilihanku);
     writeln;
     writeln('----------------------------------------------------------');
     writeln;

 
     if (a=0) then
     begin
     komputer:='telunjuk';
     end
     else if (a=1) then
     begin
     komputer:='jempol';
     end
     else if (a=2) then
     begin
     komputer:='kelingking';
     end;
     writeln('                Pilihan komputer = ',komputer);

     writeln;
     writeln('----------------------------------------------------------');
     writeln;

     if ( pilihanku= y) and (a = 0) then
     begin
     writeln('             Hasilnya Adalah anda Seri');
     end
     else if ( pilihanku= x) and (a = 0)  then
     begin
     writeln('             Hasilnya Adalah anda Menang');
     end
     else if ( pilihanku= z) and (a = 0)  then
     begin
     writeln('             Hasilnya Adalah anda Kalah');
     end

     else if ( pilihanku= y) and (a = 1)  then
     begin
     writeln('             Hasilnya Adalah anda Kalah');
     end
     else if ( pilihanku= x) and (a = 1)  then
     begin
     writeln('             Hasilnya Adalah anda Seri');
     end
     else if ( pilihanku= z) and (a = 1)  then
     begin
     writeln('             Hasilnya Adalah anda Menang');
     end

     else if ( pilihanku= y) and (a = 2)  then
     begin
     writeln('             Hasilnya Adalah anda Menang');
     end
     else if ( pilihanku= x) and (a = 2)  then
     begin
     writeln('             Hasilnya Adalah anda Kalah');
     end
     else if ( pilihanku= z) and (a = 2)  then
     begin
     writeln('             Hasilnya Adalah anda Seri');
     end;

     writeln('----------------------------------------------------------');
     write('               Apa ingin di Ulang (y/n) ?'); readln(lagi);
     until  lagi ='n'
     clrscr;
     gotoxy(7,10);writeln('TERIMA KASIH TELAH MENCOBA');
     writeln;
     gotoxy(7,12);writeln('============================================');
     gotoxy(7,13);writeln('================= Idham H N ==================');  
     gotoxy(7,14);writeln('============STMIK TASIKMALAYA==============');
end.