program DivMod;

var
	number1,number2:integer;
	answer,remainder:integer;
	
	
begin

	writeln('ADI CALC');
	write('GIVE US ONE NUMBER : ');
	readln(number1);
	write('NUMBER TWO : ');
	readln(number2);
	answer := number1 div number2;
	remainder := number1 mod number2;
	 
	writeln('THE ANSWER IS ',answer);
	writeln('THE REMAINDER IS ',remainder);
end.