program del;
begin
Writeln('Vvedite m');
Readln(m);
Writeln('Vvedite n');
Readln(n);
If n = 0 then
Writeln('Vvedeni nevernie chisla')
else
begin
k := (m mod n);
Writeln('OTVET: ', k);
end;
end.
program del;
begin
Writeln('Vvedite m');
Readln(m);
Writeln('Vvedite n');
Readln(n);
If n = 0 then
Writeln('Vvedeni nevernie chisla')
else
begin
k := (m mod n);
Writeln('OTVET: ', k);
end;
end.