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

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