Question

Даны 2 числа. Найти остаток от деления первого числа на второе и целую при делении второго числа от первого.
Помогите, плиз(

Answer 1

var
a,b:integer;
begin
readln(a,b);
writeln('остаток: ',a mod b,'  целое' b div a);
end.