Part 8 : Program Tebak Kata

Program tebak_kata;
uses wincrt;
Var
t, u: String;
g, i, j: Integer;
Procedure Tebak2 (t,u:String);
Begin
If t<>u Then
Writeln (t,'= Anda salah')
Else
Writeln (t,'=Selamat Anda benar');
End;

Begin
Write ('kata =');readln(u);
While (t<>u) do
Begin
Write ('Masukan kata='); readln (t);
Tebak2 (t,u);
Writeln;
End;
End.

Hasil :