Вывести на экран числа от 1 до 30 кратному числу 2 и 7

Program zadacha;
Var
a: integer;
Begin
For a:=1 to 30 do
If (a mod 2=0) and (a mod 7=0) then
Writeln(a);
Readln;
end.
Думаю, что вот так) Крайне извиняюсь, если ошиблась)