pascal 0.1.4

A modern Pascal compiler with build/intepreter/package manager built with Rust
Documentation 
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

program Constants;
const
  MAX_SIZE = 100;
  PI = 3.14159;
  E = 2.71828;
  MESSAGE = 'Hello World';
  FLAG = true;
var
  radius, area, circumference: real;
  count, limit: integer;
  message: string;
begin
  limit := MAX_SIZE;
  count := 0;
  
  // Using constants in calculations
  radius := 5.0;
  area := PI * radius * radius;
  circumference := 2.0 * PI * radius;
  
  // Using constants in conditions
  while count < limit do
  begin
    if count mod 10 = 0 then
    begin
      // Process every 10th item
      area := area + 1.0;
    end;
    count := count + 1;
  end;
  
  // Using boolean constants
  if FLAG then
  begin
    count := count + 1;
  end;
  
  // Complex expressions with constants
  if (count > MAX_SIZE div 2) and (area > PI * 10) then
  begin
    circumference := circumference * E;
  end;
  
  // String constant usage
  message := MESSAGE;
end.