var x,y,a,b: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
a:=x div y;
b:=x mod y;
writeln('a = ',a);
writeln('b = ',b);
end.
var x,y,a,b: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
a:=x div y;
b:=x mod y;
writeln('a = ',a);
writeln('b = ',b);
end.