Используя функцию random, найти все числа кратные 5 в паскале, массив взять 25 элементов, диаозон от -100 до 100

Program mas; const n=25; var a: array [1..n] of integer;   b,i: integer;   begin b: =0; for i: =1 to n do begin a[i]: =random(200)-100; if (a[i] mod 5)=0 then b: =b+1; end; writeln('массив: ',a,', количество элементов кратных 5: ',b); end.

Home  – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш  fn  +  ←).home  – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш  fn  +  ←)end  – перемещение курсора ввода текста в конец строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш  fn  +  →).←↑→↓  - клавиши перемещения курсора ввода по тексту.ctrl  +  →  - перемещение курсора на одно слово вправо.ctrl  +  ←  - перемещение курсора на одно слово влево.page up  – на экранную страницу вверх.page down  – на экранную страницу вниз.ctrl  +  page up  – на страницу вверх.ctrl  +  page down  – на страницу вниз.ctrl  +  home  – переход в начало текста / документа.ctrl  +  end  – переход в конец текста / документа.shift  +  f5  – переход к месту недавнего редактирования текста.

Var a,b,h,x,f: real; n,i: integer; begin write('a='); readln(a); write('b='); readln(b); h: =0.1; x: =a-h; n: =round((b-a)/h)+1; writeln(' №   x     f(x)'); for i: =1 to n do begin   x: =x+h;   f: =sqr(sin(x));   writeln(i: 2,'   ',x: 3: 1,' ',f: 8: 4);   end; end. пример: a=1 b=2   №   x     f(x)   1   1.0   0.7081   2   1.1   0.7943   3   1.2   0.8687   4   1.3   0.9284   5   1.4   0.9711   6   1.5   0.9950   7   1.6   0.9991   8   1.7   0.9834   9   1.8   0.9484 10   1.9   0.8955 11   2.0   0.8268