Theia-Modula-2/attic/hello-pascal/src/Main.pas

PROGRAM Main;

VAR
  count: INTEGER;

FUNCTION Next(n: INTEGER): INTEGER;
BEGIN
  Next := n + 1;
END;

BEGIN
  count := 0;
  WHILE count < 3 DO
  BEGIN
    WriteLn('Hello, Pascal!');
    count := Next(count);
  END;
END.