Program char; var s,k: integer; begin s=100; for k: =0 to 10 do s: =s-5; writeln(s); end.

Это можно посчитать так: в цикле 11 действий, каждое действие уменьшает s на 5, получается 100-11*5=45