Ответ: На языке Pascal: var a, b, c:integer;begin    readln(a, b, c);    if (a<b) then begin        if (a<c) then            writeln(a);        end    else if (b<c) then        writeln(b)    else        writeln(c);end.