Целочисленное деление, Нахождение остатка Опции

[-LEN_*]

Люди, наша информатичка задала сделать прогу для нахождения остатка от целочисленного деления 3 способами. Я знаю только 2, помогите, пожалуйста сделать третий. Вот моя прога:

Код

Program Funkzii;
uses crt;
label 1,2,3,4,5,6;
var  a,b,k:integer;
c:string;
begin
4:clrscr;
write('Нахождение остатка от целочисленного деления ');
readln(a);
if  a<>0 then goto 6 else goto 5;
5:writeln('Делимое не должно равняться нуля. Введите новое число: ');
readln(B);
if  a<>0 then goto 6 else goto 5;
6:write('‚Введите делитель: ');
readln(B);
if  b<>0 then goto 1 else goto 3;
3:writeln('Делитель не должен равняться нулю. Введите новое число: ');
readln(B);
if  b<>0 then goto 1 else goto 3;
1:writeln('Остаток от числа ',a,'=',a mod B);
writeln('Частное чисел ',a, ' и ',b,'=',a div B);

writeln(' Если  вы хотите прод. вып проги введите Да');
readln(c);
if (c='Да ') then goto 4;
end.

Код в теги...