В интервале от 1 до 100 натуральных чисел вывести числа делящиеся ** 5. Напишите в...

Question

В интервале от 1 до 100 натуральных чисел вывести числа делящиеся на 5. Напишите в паскаль пожалуйста и если можно схему.

Answer 1

//PascalABC.NET 3.1 сборка 1219
begin
    var a:=Range(1,100).Where(x->x mod 5 = 0);
    PrintLn(a);
end.

Answer 2

var i:integer;

begin

for i:=1 to 100 do

if i mod 5=0 then write(i,';' );

end.