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

По моему так:

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.

Решение:

Даны три различных целых числа: a=17, b = 10, c=6.

Наибольшее a>b

a>c

Наименьшее c
c
Среднее b
b>c

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