Вывести на экран все целые числа от a до b, кратные некоторому числу с. Паскаль

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.