Найти целую часть и остаток от деления а на b. а и b целые числа (программа Паскаль)

Program z5;
Var a, b, c, d: Integer;
Begin
Writeln (‘Введи числа’);
Readln (a, b);
c:= a mod b ;
d:= a div b;
Writeln (‘остаток’,c);
Writeln (‘целая часть’,d);
Readln;
End.