===== PascalABC.NET =====
begin
var n := ReadInteger;
Println(n div 100 + n mod 10)
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(Range(1,ReadInteger,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
1.Если дракону сто лет или меньше, то у него 3N голов. Если ему больше ста лет, то у него 300+2(N-100) голов.
2.Высказывание: «Число A является положительным» на языке Pascal записывается как присваивание логической переменной f математического эквивалента (A > 0)