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.
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
1)800*640=512000-пикселей
2)24=2в степени 5
5-бит 1 пиксель
3)512000*5=2560000-бит
3)2560000\8\1024=312.5Кб(вроде)