program prim_6;
var x,z: integer; ugadal: boolean;
begin
writeln('ygadai chislo'); writeln('ot 1 do 100');
z:=Random(100)+1; ugadal:=false;
while NOT ugadal do
begin
write('chislo vvedi');
Read(x);
if x=z
then begin ugadal:=true; writeln('pravilno'); end;
else if x<z
then writeln('malo...')
else if x>z
then writeln('mnogo...')
end;
end.