[pascal] Сравнение эл-тов

[IvaN9900]

Всем привет!
Есть программа:

program qwerty;
uses crt;
var
x1, x2, x3, S, y1, y2, y3: real;
BEGIN
writeln('введите х1');
readln(x1);
writeln('введите х2');
readln(x2);
writeln('введите х3');
readln(x3);
S:=(x1+x2+x3)/3;
writeln('Сред. арифм.=', s);
y1:=abs(S-x1);
writeln ('1- ', y1);
y2:=(S-x2);
writeln('2- ', y2);
y3:=abs(S-x3);
writeln('3- ', y3);
If y1>y2>y3 then begin
writeln(y1, '-большее');
end;
else y2>y1>y3 then begin
writeln(y2, '- большее');
end;
else y3>y1>y2 then begin
writeln(y3, '-большее');
end;
end.

в ней не работает сравнение эл-тов у1-3(надо найти и вывести большее из 3 значений на экран), выдает "операнды имеют непереводимые типы", можете поправить код, чтобы сравнение работало, пожалуйста?

[Serge_Bliznykov]

If y1>y2>y3 then begin
writeln(y1, '-большее');
end;

и абсолютно правильно ругается.
результат сравнения y>y2 получаетс ЛОГИЧЕСКОЕ значение (истина или ложь),
а потом этот результат Вы пытаетесь сравнить с y3 ... Истина больше, чем 2 ?!

попробуйте написать так:

If (y1>y2) and (y1>y3) then begin
  writeln(y1, '-большее');
end;

[dmitry91]

program qwerty;
uses crt;
var
x1, x2, x3, S, y1, y2, y3, max: real;
BEGIN
writeln('введите х1');
readln(x1);
writeln('введите х2');
readln(x2);
writeln('введите х3');
readln(x3);
S:=(x1+x2+x3)/3;
writeln('Сред. арифм.=', s);
y1:=abs(S-x1);
writeln ('1- ', y1);
y2:=(S-x2);
writeln('2- ', y2);
y3:=abs(S-x3);
writeln('3- ', y3);
If y1>y2 then
begin
max:=y1;
writeln(y1, '-большее');
end
else
begin
max:=y2;
writeln(y2, '- большее');
end;

if y3>max then writeln(y3, '-большее');

readkey;

end.

[IvaN9900]

Спасибо, заработало)