(34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC

var

 a, b: integer;

 c:real;

begin

read(a,b);

c:=int(a/b);

write('целочисленное деление : ',c,' остаток от деления : ',a-c*b);

end