Даны три различных целых числа, определить, какое из них (первое, второе или третье);

[Genius94]

Даны три различных целых числа, определить, какое из них (первое, второе или третье); среднее(средним назовем число, которое больше или меньше наименьшего из данных чисел, но меньше наибольшего).помогите плииззз!очень надо

[Serge_Bliznykov]

и кто такие задачи придумывает?!

вот, так попробуйте (числа должны быть различные, при равенстве среднее будет любое из равных):

Readln(a,b,c);
if a>b then begin
   if b>c then WriteLn('Среднее число 2-е')
   else WriteLn('Среднее число 3-е')
end
else
   if a>c then WriteLn('Среднее число 1-е')
   else WriteLn('Среднее число 3-е');

код не проверял...

[Olga-Colibri]

Попробуй это решение

Var a1, a2, a3: integer;
Begin
Write ('Введите три числа');
Readln (a1, a2, a3);
If (a2>a1) and (a1>a3) or (a3>a1) and (a1>a2) then writeln ('Среднее число первое', a1);
If (a1>a2) and (a2>a3) or (a3>a2) and (a2>a1)  then writeln ('Среднее число второе', a2); 
If (a1>a3) and (a3>a2) or (a2>a3) and (a3>a1)  then writeln ('Среднее число третье', a3);
If (a1=a2) or (a1=a3) or (a2=a3) then writeln ('Определить среднее число нельзя т.к. есть одинаковые цифры');
Readln
End.

[TinMan]

Серж и Оля, делать оговорки или рассматривать случаи с равными числами тут, imho, совершенно излишне, поскольку в условии сказано (болд - мой):

Сообщение от Genius94

Даны три различных целых числа

Вот и мое решение, до кучи (хотя оба решения выше правильны!)

var
  a: array[0..2] of integer;
  i: integer;
begin
  readln(a[0],a[1],a[2]);
  for i:=0 to 2 do if (a[i]-a[(i+1) mod 3])*(a[i]-a[(i+2) mod 3])<0 then writeln('средним является число №',i+1);
  readln
end.