Вывести все целые числа из диапазона от А до В, кратные 3 - Pascal ABC

с помощью 1)цикл while 2)repeat until

Листинг программы

i:=a;
while i<=b do
 begin
  if i mod 3=0 then write(i,' ');
  i:=i+1;
 end;

Объяснение кода листинга программы

Переменная i устанавливается равной переменной a.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной i не станет больше или равно значению переменной b.
Внутри цикла проверяется условие if i mod 3=0 (если значение переменной i делится на 3 без остатка).
Если условие истинно, то значение переменной i записывается в файл (или выводится на экран) с пробелом после него.
Значение переменной i увеличивается на 1.
Цикл повторяется, пока значение переменной i не станет больше или равно значению переменной b.