Написать алгоритм для паскаля. Даны целые числа a и b. Определить остаток от деления a на b, не используя стандартную операцию вычисления остатка

program zz1;

var a, b:integer; / / вводим переменные целого типа

begin

write (' введите первое заданное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

while a > = b do / / организуем цикл, пока первое число больше второго

a:=a - b; / / уменьшаем первое число на второе

write (' остаток от деления a на b, не используя стандартную операцию вычисления остатка = ', a); / / то что осталось в переменной а, выводим ответ

end.