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

числа загадываются от 1 до 10; с выходом и что делать вроде все понятно и так будетuses crt;var a,p,n,t:integer;beginclrscr;p:=0;repeata:=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.