var a,b,c:integer; begin writeln('Введите три числа: '); readln(a,b,c); if (a>b)and(a>c) then writeln('Первое число наибольшее') else if (a<b)and(a<c) then writeln('Первое число наименьшее') else writeln('Первое число со средним значением'); if (b>a)and(b>c) then writeln('Второе число наибольшее') else if (b<a)and(b<c) then writeln('Второе число наименьшее') else writeln('Второе число со средним значением'); if (c>a)and(c>b) then writeln('Третье число наибольшее') else if (c<a)and(c<b) then writeln('Третье число наименьшее') else writeln('Третье число со средним значением'); end.
var
a,b,c:integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
if (a>b)and(a>c) then writeln('Первое число наибольшее')
else if (a<b)and(a<c) then writeln('Первое число наименьшее')
else writeln('Первое число со средним значением');
if (b>a)and(b>c) then writeln('Второе число наибольшее')
else if (b<a)and(b<c) then writeln('Второе число наименьшее')
else writeln('Второе число со средним значением');
if (c>a)and(c>b) then writeln('Третье число наибольшее')
else if (c<a)and(c<b) then writeln('Третье число наименьшее')
else writeln('Третье число со средним значением');
end.
Проверил на Паскале