Program tebak angka

program Tebak_Angka;

uses crt;

var
angka,tebakan : integer;

begin
clrscr;
angka:= 2;
writeln(‘Coba tebak angka antara 1 sampai 10’); readln(tebakan);
if angka = tebakan then
writeln(‘Selamat!, tebakan kamu benar.’)
else
writeln(‘Wakwawww, tebakan kamu salah.’)
end.