foo.cc:33:26: warning: character constant too long for its type
 if ans+1<ex then writeln('Continue.')
                          ^~~~~~~~~~~
foo.cc:34:14: warning: character constant too long for its type
 else writeln('Return.');
              ^~~~~~~~~
foo.cc:1:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:3:1: error: 'i' does not name a type
 i,n,m,k:longint;
 ^
foo.cc:5:1: error: 'procedure' does not name a type
 procedure calculate(k,m:longint);
 ^~~~~~~~~
foo.cc:6:1: error: 'var' does not name a type; did you mean 'char'?
 var
 ^~~
 char
foo.cc:8:1: error: 'i' does not name a type
 i,d:longint;
 ^
foo.cc:9:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:11:1: error: 'd' does not name a type
 d:=m-k;
 ^
foo.cc:12:1: error: 'dx' does not name a type
 dx:=0;
 ^~
foo.cc:13:1: error: expected unqualified-id before 'for'
 for i := 1 to k do
 ^~~
foo.cc:16:1: error: 'p' does not name a type
 p:=i*d/(m-i)*s;
 ^
foo.cc:17:1: error: 'dx' does not name a type
 dx:=p+dx;
 ^~
foo.cc:18:1: error: expected unqualified-id before 'if'
 if p<0.000001 then break;
 ^~
foo.cc:19:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:20:1: error: 'ans' does not name a type
 ans:=ans+dx;
 ^~~
foo.cc:21:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:23:1: error: 'begin' does not name a type
 begin
 ^~~~~
foo.cc:25:5: error: expected constructor, destructor, or type conversion before '(' token
 read(n);
     ^
foo.cc:26:1: error: expected unqualified-id before 'for'
 for i := 1 to n do
 ^~~
foo.cc:29:10: error: expected constructor, destructor, or type conversion before '(' token
 calculate(k,m);
          ^
foo.cc:30:1: error: 'end' does not name a type; did you mean 'enum'?
 end;
 ^~~
 enum
foo.cc:31:5: error: expected constructor, destructor, or type conversion before '(' token
 read(ex);
     ^
foo.cc:33:1: error: expected unqualified-id before 'if'
 if ans+1<ex then writeln('Continue.')
 ^~
foo.cc:35:1: error: 'end' does not name a type; did you mean 'enum'?
 end.
 ^~~
 enum

正在同步测试数据，请稍后
自豪的采用HydroJudge(https://github.com/hydro-dev/Hydro)进行评测。