Пожалуйста, сделайте на pascal

Ответ:

begin

  var n := ReadInteger();

  var n1 := 10;

  for var i := 2 to n do

     n1 += i mod 2;

  var res := n.IsOdd ? n1 div 10 : n1 mod 10;

  print(res)

end.

Объяснение: