/in/foo.cc:1:1: error: 'program' does not name a type
 program Snow_Clearing;
 ^~~~~~~
/in/foo.cc:2:1: error: 'var' does not name a type
 var  ppp,pp,h,m:longint;
 ^~~
/in/foo.cc:3:6: error: 'x1' does not name a type
      x1,y1,x2,y2,ans:extended;
      ^~
/in/foo.cc:4:1: error: 'begin' does not name a type
 begin
 ^~~~~
/in/foo.cc:8:10: error: expected constructor, destructor, or type conversion before '(' token
   rewrite(output);
          ^
/in/foo.cc:9:7: error: expected constructor, destructor, or type conversion before '(' token
   read(x1, y1);
       ^
/in/foo.cc:10:3: error: 'ans' does not name a type
   ans:=0;
   ^~~
/in/foo.cc:11:3: error: expected unqualified-id before 'while'
   while not eof do
   ^~~~~
/in/foo.cc:14:7: error: 'ans' does not name a type
       ans:=ans+sqrt(sqr(x1-x2)+sqr(y1-y2));
       ^~~
/in/foo.cc:15:5: error: 'end' does not name a type
     end;
     ^~~
/in/foo.cc:16:3: error: 'ans' does not name a type
   ans:=ans*2/1000/20;
   ^~~
/in/foo.cc:17:3: error: 'h' does not name a type
   h:=trunc(ans); m:=round(60*(ans-h));
   ^
/in/foo.cc:17:18: error: 'm' does not name a type
   h:=trunc(ans); m:=round(60*(ans-h));
                  ^
/in/foo.cc:18:3: error: expected unqualified-id before 'if'
   if m=60 then begin m:=0; inc(h) end;
   ^~
/in/foo.cc:18:31: error: expected constructor, destructor, or type conversion before '(' token
   if m=60 then begin m:=0; inc(h) end;
                               ^
/in/foo.cc:19:8: error: expected constructor, destructor, or type conversion before '(' token
   write(h,':');
        ^
/in/foo.cc:20:3: error: expected unqualified-id before 'if'
   if m<10 then write(0); 
   ^~
/in/foo.cc:21:10: error: expected constructor, destructor, or type conversion before '(' token
   writeln(m);
          ^
/in/foo.cc:24:1: error: 'end' does not name a type
 end.
 ^~~