assign12/tester.pas

   1 PROGRAM Tester;
   2
   3 VAR
   4    x    : integer;
   5
   6 FUNCTION xyz(x,y : integer) : integer;
   7      BEGIN
   8            xyz :=   x+y;
   9      END;
  10
  11 BEGIN
  12    x := xyz(111,222);
  13    writeln(x);
  14 END.