Что напечатает программа: Program smak; Var item:integer; Prodecure lie(var ia:integer;ya:integer); Begin ia:=10*ya; end; begin item:=10; lie(item,item); writeln(item); end.
10 в процедуре число не изменилось