вывести ** экран все числа из отрезка [1,50] которые делятся ** 5 желательно представить...

Question

вывести на экран все числа из отрезка [1,50] которые делятся на 5

желательно представить в виде программмы, тобишь var...begin и т.д

Answer 1

program test;
var i:integer;
begin
   for i:=1 to 50 do
      if i mod 5 = 0 then
         write(i, ' ');
   readln;
end.