program Exercise1Ref (input, output);
	var a, b, c: integer;

	procedure p1 (VAR a,b: integer);
		begin
			a := a * b;
			if (c div b) = a then a := 0 else a := 100;
		end;
	
	procedure p2 (VAR a, b: integer);
		begin
			a := a - b;
			if a = c then p1(b,a) else p1(a,b);
		end;

	begin
		a := 1; b := 5; c := 10;
		p2(c,b);
		writeln ('a = ', a, ' b = ', b,  ' c = ', c);
	end.