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

Первый вариант выполнения:var i:integer;beginfor i:=1 to 100 doif i mod 5=0 then write(i,\';\' );end.Второй вариант выполнения:beginvar a:=Range(1,100).Where(x->x mod 5 = 0); PrintLn(a);end.Третий вариант выполнения:var i:integer;beginConst = 100;if i mod 5=0 then write(i,\';\' );end.