Question

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

Answer 1

BEGIN

 

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

    for a to 6 do

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

 

readln

END