1)составить программу которая выводит на экран каждое 5-ое число и таких чисел 20. 2)составить программу которая вычисляет произведение натуральных чисел от 5 до 10.

1. var i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: '); for i: =1 to 20 do a[i]: =random(21)-10;   for i: =1 to 20 do write(a[i]: 5); writeln; writeln('каждый пятый эелемент массива: ');   for i: =1 to 20 do if i mod 5 = 0 then write(a[i]: 5); end. 2. var x,i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: ');   for i: =1 to 20 do a[i]: =random(11); for i: =1 to 20 do write(a[i]: 5); writeln; writeln('натуральные числа в диапазоне [5..10]: ');   for i: =5 to 10 do write(a[i]: 5); writeln; x: =1; writeln('их произведение: ');   for i: =5 to 10 do x: =a[i]*x; write(x: 5);   end.

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.