Mercurial > lcfOS

comparison ide/testproject/main.mod @ 38:a1c9c2158e99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Directory cleanup
author windel
date Fri, 03 Feb 2012 18:38:44 +0100
parents testproject/main.mod@edd70006d3e4
children
comparison
equal deleted inserted replaced
37:5c20bd53cccd 38:a1c9c2158e99
1 module main;
2 var
3 a,b,c : integer;
4
5 procedure test(x:integer);
6 var y,z:integer;
7 begin
8 y := x * 3 + 2;
9 z := x + y + a;
10 end test;
11
12 procedure add(a:integer; b:integer):integer;
13 var
14 tmp : integer;
15 begin
16 tmp := a + b;
17 return tmp
18 end add;
19
20 begin
21 a := 12;
22 b := a * 12 + 33;
23 c := a div b + a * b * 99;
24 end main.
25