Var m,a, F: Integer;
begin
writeln('Введите значени m');
readln(m);
writeln('Введите значение a');
readln(a);
F:=m*a;
writeln('Ответ, F = ', F);
readln;
end.
Ответ:
Реализована в виде флага
Объяснение:
все эти "предметы" использует человек, сидя.