program MathDemo;

uses
 MathStuff;

var
 A, B: Integer;

begin
 A := 1;
 B := 2;
 Writeln('Suma ', A, ' i ', B, ' wynosi ', AddTwoNumbers(A,B));

 Readln;
end.