Program Tebak Angka

Algoritma dan Pemrograman dengan menggunakan dev-pascal

-------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------

program tebak_angka;

{

Programmer:Agun Wiguna

Deskripsi: Tebak angka

}

const kunci=57;

var

   bil,n:integer;

begin

writeln('Tebak Bilangan yang ada di dalam komputer');

repeat

      write('Masukan angka 1-100:');readln(bil);

      n:=n+1;

until  (bil=kunci) or (n>=10);

if n<10 then

writeln('Anda Beruntung')

else

writeln('anda belum beruntung');

readln;

end.