Составьте программы "Угадай число от 1 до 10"
И придумайте похожую задачу, только немного сложней. :) 
Сорь за качество.

числа загадываются от 1 до 10; с выходом и что делать вроде все понятно и так будет
uses crt;
var a,p,n,t:integer;
begin
clrscr;
p:=0;
repeat
a:=random(10);
 repeat 
 readln(n); 
 p:=p+1;
 if n=a then begin writeln('Вы угадали с ',p,' раза!'); p:=0; writeln('Поробуйте снова!'); readln; clrscr; end   
 else if n<a then writeln('Число введенное вами меньше загаданного,попробуйте снова')   
  else if n>a then writeln('Число введенное вами больше загаданного, попробуйте снова'); 
 until n=a;
writeln('Если хотите выйти введите "-1" ');
 readln(t);
  until t=-1;
 readln;
 end.