blob: 454794a0453287b3dccaa191a1561db49ac4d126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
/*
* module trying to show all features of the language
*/
module test1;
const
// integer constant
N : integer = 20;
var
// this is an integer
a : integer;
// this is also an integer
b : integer;
c : integer; // c too
d, e : integer;
begin
a := 1;
b := 7;
c := N;
a := b;
a := a + 1;
d := a * c + b;
d := a * ( c + b );
e := ( ( 7 * a + b ) + 2 * ( b + a + 3 ) ) * 2;
end
|