Программисты помогите решить задачку на Pascale

[Pinkfloid88]

Здравствуйте, помогите решить задачу, хоть она и простая но я далеко не программист, поэтому прошу вас. заранее огромное спасибо. Задача : Программирование алгоритмов развлетвляющейся структуры. Даны a и b, (a не равно b), меньшее из этих чисел заменим их полуссумой, а большее их удвоенным произведением. решите пожалуйста.

[MOTOCoder]

Полный код не привожу, но принцип такой:
[syntax='Delphi']
readln(A,B);
if A>B then
begin
NA:=2*A*B;
NB:=(A+B)/2;
end
else
begin
NB:=2*A*B;
NA:=(A+B)/2;
end;
writeln('A= ',NA:0:4);
writeln('B= ',NB:0:4);
[/syntax]