Даны два числа А и В. Определить остаток от деления числа А на число В.

var
a,b,c: integer;
Begin
writeln ('Введите число А : ');
readln (a);
writeln ('Введите число B : ');
readln (b);
c:= a mod b;
writeln ('Остаток от деления: ', c);
end.