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

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