program DoubleAndReduce;
var
num1, num2, min, max: Integer;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number (must be different from the first): ');
readln(num2);
// Find the smaller number
if num1 < num2 then
begin
min := num1;
max := num2;
end
else
begin
min := num2;
max := num1;
end;
writeln('Before: ', min, ' ', max);
// Calculate new values
min := min * 2;
max := max div 3;
writeln('After: ', min, ' ', max);
end.