вывести на экран в интервале от А до 6 все числа кратные 5

Вопрос пользователя:

вывести на экран в интервале от А до 6 все числа кратные 5

Илюха отвечает:

BEGIN

 

write(‘Введите а’);
readln(a);

    for a to 6 do

      if a mod 5 = 0 then writeln(a,’ ‘);

 

readln

END