program char;var s,k: integer;begins=100;for k:=0 to 10 dos:=s-5;writeln(s);end.

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