// Auto-generated code below aims at helping you parse
// the standard input according to the problem statement.
program Answer;
{$H+}
uses sysutils, classes, math;
// Helper to read a line and split tokens
procedure ParseIn(Inputs: TStrings) ;
const Line : string;
begin
readln(Line);
Inputs.Clear;
Inputs.Delimiter := ' ';
Inputs.DelimitedText := Line;
end;
const
S1 : String;
S2 : String;
Inputs: TStringList;
begin
Inputs := TStringList.Create;
ParseIn(Inputs);
// Write an action using writeln()
// To debug: writeln(StdErr, 'Debug messages...');
writeln('answer');
flush(StdErr); flush(output); // DO NOT REMOVE
end.
In line 9 “const” has to be “var”.
In line 17 “const” has to be “var”.
Such a trival thing… Such wow.