Подпрограмма
Алг подпр 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+YEnd Functionsub test()  A=3  A=podpr1(A,5)  MsgBox Aend subРезультат 29Значение переменной A будет 29