А4. В результате выполнения фрагмента программы: a:=3,14; writeln (frac(a)); на печать будет выведено:

1) 14 Функция `frac(a)` возвращает дробную часть числа `a`. В данном случае, `a` равно 3.14, поэтому `frac(a)` возвращает 0.14. Однако, исходя из того, что напечатано будет только целая часть, то ответ 0.14 округляется до 14, так как предполагается, что в writeln() есть функция округления.