Меньшее из двух чисел z,s заменить их полусуммой , а большее - их удвоенным произведением. Паскаль

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

program MinMaxReplace;
var z, s, min, max, newZ, newS: integer;
begin
write('Enter the first number: ');
readln(z);
write('Enter the second number: ');
readln(s);

if z < s then
begin
min := z;
max := s;
end
else
begin
min := s;
max := z;
end;

newZ := (min + max) div 2;
newS := 2 min max;

writeln('New number for z: ', newZ);
writeln('New number for s: ', newS);
end.