Подпрограмма алг подпр 1 ( арг цел x,y, рез цел f) нач x: =x+1 y: =y*5 f: = x+y кон вызывается на выполнение нач цел а,в,с а: =3 b: =5 подпр 1 (а,в,а) после этого значение переменной а будет равно ,с

Function podpr1(ByVal X,Y as Integer) as Integer
  X=X+1
  Y+Y*5
  podpr1=X+Y
End Function

sub test()
  A=3
  A=podpr1(A,5)
  MsgBox A
end sub

Результат 29
Значение переменной A будет 29