Ввести два числа a и b . Меньшее заменить полусуммой, а большее удвоенным произведением. (паскаль)

Предыдущий
вопрос Следующий
вопрос

program ReplaceNumbers;

var
a, b, min, max: Integer;

begin
writeln('Введите два числа:');
readln(a, b);

if a < b then
begin
min := (a + b) div 2;
max := 2 a b;
end
else
begin
min := 2 a b;
max := (a + b) div 2;
end;

writeln('Меньшее число после замены:', min);
writeln('Большее число после замены:', max);

end.