var a,b: integer;
begin
write ('Введите а = ');
readln (a);
write ('Введите b = ');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a mod b);
end
else
writeln('Ошибка! Деление на 0!');
end.
var a,b: integer;
begin
write ('Введите а = ');
readln (a);
write ('Введите b = ');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a mod b);
end
else
writeln('Ошибка! Деление на 0!');
end.