Mercurial > lcfOS

comparison testproject/main.mod @ 8:edd70006d3e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Started with MDI functions
author windel
date Fri, 21 Oct 2011 17:36:57 +0200
parents
children
comparison
equal deleted inserted replaced
7:2db4d2b362e6 8:edd70006d3e4
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