1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
По черным ящиком (lack box) понимается модуль, алгоритм работы которого неизвестен, соответственно можно только построить алгоритм работы с ним.
Передать исходные данные > получить обработанные данные
Рано, к примеру,больше показателя на ум не приходит