Var s, k: integer; begin s : = 40; for k : = 1 to 7 do s : = s - 3; write (s); end.

Var
    s, k: integer;

begin
    s := 40;
    for k := 1 to 7 do
        s := s - 3;
    write(s);
end.

Вывод 19

Модераторам - если нужно, то можно удалять без предупреждения