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

program zz1;

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

begin

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

read(a);

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

read(b);

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

a:=a - b; // убавляем первое число на 2-ое

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

end.