Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / prog14

program prog14;
uses crt;
var n,m,d: byte;
begin
 clrscr;
 n:=7; writeln(' Исходное число : ', n);
 d:=n div 2; writeln(' Целочисленное деление : ', d);
 n:=n mod 2; writeln(' Остаток от деления : ', m);
 readln;
end.