begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
800*600 = 480000 бит = 58.6 Кб.
i=4 бита
N=2^4 = 16 цветов.
Лишнее дверцы, потому что остальные слова не имеют единственного числа.
Размер данных на флешке = 4,44*0,88=3,9072 ГБ = 4000,9728 Мб = 4096996,1472 Кб
Разделим размер на скорость и получим секунды.
4096996,1472/1199=3417 секунд