Информатиканапишите маску для выделения всех файлов; а) с расширением doc; б) имя которых начинается с буквы f; в) имя которых содержит pci; г) расширение которых вторая буква h; д) в имени которых первая буква u, третья буква s, а в расширении есть буква o; е) в имени и в расширении которых ровно по одному символу​

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

синий,желтый,красный,зеленый,оранж.

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.

файл в паскале должен иметь расширение конечно же а)