Question

Ввести с клавиатуры два числа x, y. Большее число заменить на частное, x на y. Меньшее число заменить на остаток от деления х на у

Answer 1

var x,y,max,min: integer;

begin
readln(x,y);
max:=0; min:=0;
if x>y then begin
max:=x div y;
min:=x mod y;
writeln(max,' ', min);
end;
if x<y then begin
min:=x div y;
max:=x mod y;
writeln(max,' ', min);
end;
end.