Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). Напишите программу в Pascal

program a_b_3;

var a, b: integer;

begin

writeln ('Введите число a');

readln (a); / /нижняя граница диапазона

writeln ('Введите число b');

readln (b); / /верхняя граница диапазона

writeln ('Числа кратные трем в интервале от ', a, ' до ', b, ':');

for i:integer : = a to b do

if (i mod 3) = 0 then write (i, ' ')

/ / если остаток от деления значения переменной i на 3 равен 0

/ / то печатать значение переменной i

end.