В 32. Надо разделить числа, тогда будет известно, во сколько раз.
Var r,v:integer;
begin
read(r,v);
if (v < r-105) then write(' < ') else
if (v > r - 95) then write(' > ') else
write(' HOPM ');
end.
1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 ,
Информатика помогает человеку узнать много всего интересного.
1) ответ 0,1122
2) ответ 111201
И так остальные вычисляешь