Part 7 : Program Tebak Angka

uses wincrt;
Var
t, u: String;
g, i, j: Integer;

Procedure Tebak (g,i:Integer);
Begin
If gi Then
Writeln (g,'=lebih besar')
Else
Writeln (g,'=Selamat Anda benar');
End;

Begin
Write ('Nilai =');readln(i);
While (g<>i) do
Begin
Write ('Masukan angka='); readln (g);
Tebak(g,i);
Writeln;
End;
End.

Hasil :