Program angka batas 1-10

uses crt;
var
   angka:byte;
   selesai:boolean;
begin
clrscr;
repeat
   write('Isikan 1-10: ');readln(angka);
   if (angka>=1) and (angka<=10)  then
   selesai:=true;

until selesai;
   writeln('anda benar');
   readln;
end.