Составить блок схему к программе
var n,i: integer;
f: real;
begin
readln(n);
i: =0;
f: =1;
while i begin
i: =i+1;
f: =f*i;
end;
write(n,'! =',f: 0: 0);
readln
end.
​

using System;

using System.Linq;

namespace Prog

{

   public class Program

   {

       public static void Main(string[] args)

       {

       Random rnd = new Random();

       int len = rnd.Next(5,30);

       int[] A = new int[len];

       for (int i = 0; i < len; i++)

           A[i] = rnd.Next(-50, 50);

       Console.WriteLine("{0}", string.Join(" ", A));  

       var B = Array.FindAll(A, i => i >= A[Array.IndexOf(A, A.Max())-1]);

       foreach (int i in B)

           Console.Write(i+" ");

       }

   }

}

var a1: array[-1000..50] of integer; только одно правильное нашла.

const m1 = 20; m2 = m1*100;

var a6: array[m1..m2] of -200..200; вместо -200..200 надо было тип указать.

var a2: array[200..-111] of real; сначала отрицательное число.

const n: byte = 0;

var a5: array[-1000..n] of word; не надо указывать тип константы (byte).

var a9: array[0.0..20000.0] of byte; вот насчет этого не уверена, но мне кажется, что тут не надо дробную часть, потому что byte - целый тип.

type mass = array[1..100] of char; пишут не type, a var.

var a7: array[0..99] of mass; насколько мне известно, типа mass не существует.