Membuat Game dengan Pascal

Dalam Bahasa Algoritma:
Var
        X:integer
        N:integer
Begin
        
        x <-- 12
        Output('mari kita coba angka yang sebenarnya?(1-100)')
    Input(X)
        While (X <> 12) do
        Begin
                Output('harus berusaha lagi broo')
                Output('kita tebak angka yang benar ya?(1-100) ')
        Input(x)
        End
        Output('alhmdulillah anda benar!!')
        
End Algoritma.

Dalam Bahasa Pascal:
uses crt;
Var
        X:integer;
        N:integer;
Begin
        CLRSCR;
        x:=12;
        WRITELN('mari kita coba angka yang sebenarnya?(1-100)');
        READLN(X);
        While (X <> 12) do
        Begin;
                WRITELN('harus berusaha lagi broo!!');
                WRITELN('kita tebak angka yang benar ya?(1-100) ');
                READLN(x);
        End;
        WRITELN('alhmdulillah anda benar!!');
        READLN();
End.