program SumUp;\nvar\n  i, sum: integer;\nbegin\n  sum := 0;\n  for i := 1 to 10 do\n  begin\n    if i > 5 then\n      sum := sum + i\n  end;\n  writeln(sum)\nend.\n