var s, k: integer;
begin
s := 1;
for k := 2 to 7 do
s := s + 100;
write (s);
end.
Поясните как решить

и тут видим что программа выведет 601

Ну если ты имел ввиду как ручным способом получить что выведет программа то я обычно черчу табличку в данном случае с 3 колонками В первой номер выполнения (чтобы не сбиться)Во второй сама переменная (s)И в третьей цикл (к)