Дано 3 числа. Найти наибольшее, наименьшее и среднее значение из этих чисел ! Напишите...

Полное решение:

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

Проверил на Паскале