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

Var
  z, s: integer;

begin
  write('Введите числа: ');
  read(z, s);
  if z < s
    then writeln('Новые значения:', #10, 'z=', (z + s) / 2, ' s=', z * s * 2)
  else if z > s
    then writeln('Новые значения:', #10, 'z=', z * s * 2, ' s=', (z + s) / 2)
  else writeln('Числа равны');
end.