Что будет выведено в результате вызова подпрограммы write(f(15,25))? function f(x, y:integer):integer; begin while x<>y do if x>y then x:=x-y else y:=y-x; f:=x; end;

5

Объяснение:

Функция f вычисляет наибольший общий делитель переданных аргументов по алгоритму Евклида, поэтому результатом вызова подрограммы будет число 5 - наибольший общий делитель чисел 15 и 25