Меньшее из двух чисел 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.