Не работает правильно!!!

[Vitalik1]

должно сравнивать все три числа, а сравнивает только два, а второе с третьим почемуто постоянно равно

program porivnanya;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:integer;
    r1,r2,r3:char;
    function max(x,y:real):char;
begin
  if x>y then max:='>'
  else max:='<';
  if x=y then max:='=';
end;
 begin
       write('Zadayte a,b,c: ');
     r3:=max(b,c);
     readln(a,b,c);
     r1:=max(a,b);
     r2:=max(a,c);
     writeln(a,r1,b);
     writeln(a,r2,c);
     writeln(b,r3,c);
      readln
end.

[kangreon]

В Вашем коде, максимальное число из b, c ищется до ввода этих чисел:

r3:=max(b,c);
 readln(a,b,c);

поменяйте строки местами.

[Vitalik1]

Спасибо!! Сегодне уже дважды помог!!