нестандартная задача в паскале

[vadek13]

помогите решить пожалуйста :
вычислить большее из двух чисел не прибегая к if и then

[vadek13]

оооочень срочно решение нужно!!!!

[vadek13]

знаю только что нужно использовать оператор присваивания, а больше ничего... ну препод еще подсказку дал, только смысл ее мне не понятен он сказал : плюс, минус, делить... (((

[__STDC__]

Эм... это сложно? или я что-то не понимаю?

var
	x,y,max:real;
begin
	writeln('Enter x,y: '); readln(x,y);
	max := ( (x+y)+abs(x-y) ) / 2;
	writeln('Max is ',max:0:3);
	readln;
end.

[PSix1_73]

Последнее readln зачем??? Ещё можно занести числа в массив и вывести максимальный элемент из него.

[__STDC__]

Сообщение от PSix1_73

Последнее readln зачем??? Ещё можно занести числа в массив и вывести максимальный элемент из него.

напишите и выведите... давайте взглянем на это.
Последнее readln; здесь применяется во избежании скрытия вывода, до того как его можно будет проверить...