program New;

function Test():Integer;
begin
Result:= 2 + 2;
end;
begin
writeln('The Answer is ' +IntToStr(Test()));
end.