Part 9 : Program Tebak Panjang Kata

uses wincrt;
Var
t, u: String;
g, i: Integer;
procedure tebak(g,i:integer);
Begin
If g
Writeln (g,'=Lebih Kecil')
Else If g>i Then
Writeln (g,'=lebih besar')

Else
Writeln (g,'=Selamat Anda benar');
End;
Begin
Write ('Masukan kata='); readln(u);
i:=length (u);
While (g<>i) do
Begin
Write ('Berapa panjang kata='); readln(g);
Tebak(g,i);
Writeln;
End;
End.

Hasil :