program int6;var a,b:integer;begin writeln('Give 2 integers: '); readln(a,b); writeln(a,' DIV ',b,' = ', a div b);end.