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