Решение задачи 7 из главы 10.1

Решение задачи 7 из главы 10.1

7. Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

program Project7;
var a: integer;
begin
  a:=0;
  while (a < 100) do
  begin
       a:=a+7;
       if (a >= 100) then
        break;
       write(a, ' ');
  end;
  readln();
end.
gani84's picture

Там через for надо решить