Pascal mode

x
 
1
(* Example Pascal code *)
2
3
while a <> b do writeln('Waiting');
4
 
5
if a > b then 
6
  writeln('Condition met')
7
else 
8
  writeln('Condition not met');
9
 
10
for i := 1 to 10 do 
11
  writeln('Iteration: ', i:1);
12
 
13
repeat
14
  a := a + 1
15
until a = 10;
16
 
17
case i of
18
  0: write('zero');
19
  1: write('one');
20
  2: write('two')
21
end;
22

MIME types defined: text/x-pascal.