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

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

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

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