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.