решите пожалуйста очень нужно. ДАЮ МНОГО БАЛЛОВ!!!!

Пусть вводятся числа a, b, c. Будем стараться получить a < b < c и тогда b - то самое "среднее", которое нам надо получить.1. Сравним a и b. Если a>b, обменяем значения местами.2. Сравним b и с. Если b<c, то искомое значение b, иначе искомое значение с, но обменивать их местами уже незачем, ведь мы уже узнали, что именно надо вывести.var  a,b,c,t:integer;begin  Write('Введите три числа через пробел: '); Read(a,b,c);  if a>b then begin t:=a; a:=b; b:=t end; // обмен  if b>c then Writeln(c) else Writeln(b)end.ПримерВведите три числа через пробел: 13 5 1111