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