Как вывести первую сотню чисел кратных семи, паскаль

Var i : Integer; Begin   For i:=1 to 100 do Writeln(i*7); end.