Постройте алгоритм угадывания числа от 1 до 10

Question

Постройте алгоритм угадывания числа от 1 до 10

Answer 1

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.