Dividend := 73; Divisor := 13;
Quotient :=  0; Remainder :=  0;
Sum := 0;

while Sum+Divisor <= Dividend loop
	Sum := Sum + Divisor;
	Quotient := Quotient + 1;
end loop;

while Sum != Dividend loop
	Sum := Sum + 1;
	Remainder := Remainder + 1;
end loop;