Ответ:

var

a,b,c,ostatok:integer;

cr:real;

begin

a:=5;

b:=3;

//Если использовать не целочисленного деление,

//то будет 1.666666666...

cr:=a / b;

 writeln ('При нецелочисленном делении c=',cr);

//Если использовать целочисленного деление,

//то будет 1

c:=a div b;

writeln ('При целочисленном делении c=',c);

//Проверим остаток при целочисленном делении арифметический

ostatok := a-c*b;

writeln ('При делении ',a,' на ',b,' остаток = ',ostatok);

//Проверим остаток при целочисленном делении с помощью операции mod

ostatok := a mod b;

writeln ('При делении ',a,' на ',b,' остаток = ',ostatok);

end.

Объяснение: