Вывести на экран в виде таблицы все целые числа от a до b ,кратные c

Var a,b,c:integer;
begin
read(a,b,c);
for a:=a to b do
if a mod c = 0 then write(a,' ');
end.