Урок 10.1 Задача 9

Урок 10.1 Задача 9

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

program u10z2;
var a, b, n:integer;
begin
  writeln('vvedite  2 chisla');
  readln(a,b);
      if (a > b) then

        for n:= a to b do
         write(n)
      else
        if (a < b) then
        for n:= b downto a do
      write(n);
  readln();
end.