(* Name: Chong Tsz Hang *)
(* Class: 4E ** No: 25 *)
(* Assignment #1 ** Q.3 *)
(* variables: num1: dividend,
							num2: divisor,
							anz: answer *)
program count;
uses crt;
var
	num1, num2, anz: integer;
begin
	 clrscr;
	 write('Enter the dividend: ');
	 readln(num1);
	 write('Enter the divisor: ');
	 readln(num2);
	 if num2 <> 0
			then begin
					 anz:= num1 div num2;
					 writeln(anz:7);
					 writeln('  _____');
					 writeln(num2:2,')',num1:4);
					 writeln((num2 * anz):7);
					 writeln('  _____');
					 if num1 mod num2 <>0
					 then writeln((num1 mod num2):7)
			end
			else writeln('There is no solution.')
end.