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