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

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