Решение :
Даны три различных целых числа: a=17, b= 10, c=6. 
Наибольшее a>b
a>c
Наименьшее ccСреднее bb>c 

Тебе код нужен?

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