program prim_6;
var x,z,v: integer; ugadal: boolean;
begin
  writeln('Угадай число'); writeln('от 1 до 100');
  z:=Random(100)+1; ugadal:=false;
  while NOT ugadal do
  begin
    write('Число='); Read(x);
    if x=z
    then begin ugadal:=true; writeln('Правильно'); end
    else if x<z
    then writeln('мало...')
    else if x>z
    then writeln('Много...')
    end;
end.