foo.cpp:1:1: error: 'var' does not name a type
 var a:integer;
 ^
foo.cpp:2:1: error: 'begin' does not name a type
 begin
 ^
foo.cpp:4:1: error: 'a' does not name a type
 a:=random(2);
 ^
foo.cpp:5:1: error: expected unqualified-id before 'if'
 if a=1 then writeln(a)
 ^
foo.cpp:7:1: error: 'end' does not name a type
 end.
 ^