• Source
    1. program int7;
    2. var
    3. a,b:integer;
    4. begin
    5. writeln('Give 2 integers: ');
    6. readln(a,b);
    7. writeln(a,' MOD ',b,' = ',a mod b);
    8. end.