30 lines
751 B
ObjectPascal
30 lines
751 B
ObjectPascal
MODULE AB;
|
|
IMPORT StdLog, DevCommanders,TextMappers;
|
|
|
|
PROCEDURE DoAB(x,y: INTEGER);
|
|
BEGIN
|
|
StdLog.Int(x);StdLog.Int(y);StdLog.Int(x + y);StdLog.Ln;
|
|
END DoAB;
|
|
|
|
PROCEDURE Go*;
|
|
VAR
|
|
params: DevCommanders.Par;
|
|
s: TextMappers.Scanner;
|
|
p : ARRAY 2 OF INTEGER;
|
|
current: INTEGER;
|
|
BEGIN
|
|
current := 0;
|
|
params := DevCommanders.par;
|
|
s.ConnectTo(params.text);
|
|
s.SetPos(params.beg);
|
|
s.Scan;
|
|
WHILE(~s.rider.eot) DO
|
|
IF (s.type = TextMappers.int) THEN
|
|
p[current] := s.int; INC(current);
|
|
END;
|
|
s.Scan;
|
|
END;
|
|
IF current = 2 THEN DoAB(p[0],p[1]) END;
|
|
END Go;
|
|
END AB.
|