procedure procedure4(var a:integer;var b:integer;var c :integer);
procedure peocedure5(a: integer;b:integer;c:integer);