C# 8.0
using System.Linq;
...
int Max = new int[]{a,b,c}.Max();
Если Pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i:=100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
Ну вот так как-то...
*(4) записано вместо выражения в пункте 4, т.к. я не могу его уместить в одну клетку. Также можно написать F вместо (4)
Возможно , стоило пойти прямо и направо ,то есть два поворота в лево лишние