Это самый элементарный алгоритм, я б на вашем месте сам подумал, как сделать это задание.
Как по мне, есть 2 пути решения задачи:
- через if с подставлением по 1 сравнению (долгий)
- через if с подставлением по 2 сравнения (короткий)
берем короткий
var a,b,c:integer;
begin
readln(a,b,c);
if ((aif ((bif ((cend.