Сосавте программу, которая определяет сумму для выражения 11+17+29..., что бы эта сумма оказалась больше ведённого числа n.

Var n,a:int64;begin  writeln(n);read(n);a:=11+17+29;if a>n then writeln('Yes') else writeln('No');end.