function P1()
	A = B + C;
	B = A * 2;
	if C == 0 then
      AHTUNG();
	else
	  C = A / C;
	end  
end

function P2()
	A = math.cos(A);
	B = math.sin(B);
	if C ~= 0 then  --  Pascal    C<>0
		C = A / C;
	else
	  AHTUNG(A);
	end  
end

function P3()
	A = 1
	B = 2;
	C = 0;
end

--      
Say(3, "Hello, World!", "  !", "!   "); --    ,  
