1.Найти количество естественных чисел, не превосходящих 100 и кратных 5.2.Создать массив

1.program zz1;
var r, i:integer; // задаем переменные целого типа
begin
for i:=1 to 100 do
if i mod 5 = 0 then r:=r + 1; // вычисляем количество чисел
write( количество естественных чисел кратных 5 = , r); //выводим ответ
end.
2.program zz1;
const n = 10; // задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(26);
for i:=1 to n do // выводим приобретенный массив на экран
write(m[i], );
writeln; // перебегаем на новую строку для вывода ответа
for i:=2 to n do
if m[i] gt; m[1] then k:=k+1;
write( количество таких членов = ,k);
end.