какой схемы? вот тебе алгоритм
var ch,ch1:integer;
begin
ch:=random(10)+1;
writeln('Ugadai vvedi chislo ot 1 do 10');
readln(ch1);
if ((ch1 <10) and (ch1 > 0) ) then
if (ch1=ch)then writeln('Ty ugadal')
else writeln('Ty ne ugadal, chislo = ',ch)
else writeln('Error');
end.