Выдает ошибку операция > не может быть применена к типам boolean и integer program qq; var a,b,c,max,min,med : integer; begin writeln ('введите три числа'); read (a,b,c); if c> b> a then begin max : = c; med : = b; min : = a; end; if b> a> c then begin max : = b; med : = a; min : = c; end; if a> c> b then begin max : = a; med : = c; min : = b; end; writeln ('наибольшее число', max); writeln ('среднее число', med); writeln ('наименьшее число', min); end.

Ну так правильно пишет , нельзя писать if b>a>c
then begin , пишется правильно так  if (c>b) and (b>a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln ('введите три числа');read (a,b,c);if (c>b) and (b>a)then beginmax := c;med := b;min := a;End;if (b>a) and (a>c)then beginmax := b;med := a;min := c;End;if (a>c) and (c>b)then beginmax := a;med := c;min := b;End;writeln ('наибольшее число', max);writeln ('среднее число', med); writeln ('наименьшее число', min);End.