git @ Cat's Eye Technologies Dipple / master pascal / modulo.pas
master

Tree @master (Download .tar.gz)

modulo.pas @master — raw · history · blame 

 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
(*
 * SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
 * For more information, please refer to <https://unlicense.org/>
 * SPDX-License-Identifier: Unlicense
 *)

program Hello;

var i: integer;
var j: integer;

begin
  for i := -5 to 5 do
    for j := -5 to 5 do
      begin
        if (i >= 0) then write(' ');
        write(i, ' mod ');
        if (j >= 0) then write(' ');
        write(j, ' = ');
        if (j = 0) then
          writeln('undefined')
        else
          writeln(i mod j)
      end
end.