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

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