Задача по программированию. Паскаль. Срочно!

Даны действительные числа x, y (x не равно y). Меньшее из этих двух чисел заменить их полусуммой, а большее - их удвоенным произведением.

Что попытался написать, но чего-то не хватает:

Program z8_2;
var x,y:real;
Begin
writeln ('vvedite 2 4isla');
readln(x,y);
writeln IF x

(продолжение) x

x

writeln IF x