Var m,a, F: Integer;
begin
writeln('Введите значени m');
readln(m);
writeln('Введите значение a');
readln(a);
F:=m*a;
writeln('ответ, F = ', F);
readln;
end.
