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

Полное решение: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.Проверил на Паскале