Паскаль!!!ввести все трехзначные числа,делящиеся на 15. Пожалуйста.

Var i,k:integer;beginfor i:=100 to 999 dobegink:=i mod 15;if k=0 then writeln(i);end;end.