Для каждого из имен вычислите значение логического выражения (истина, ложь): г (последняя буква гласная→вторая буква согласная) ^ первая буква согласная.
Руслан
Анна
Степан
Татьяна

min і max нужно присвоить а[1].

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

если делать, как самоделкин, стыковать кубики столбиком,

то получится так:

var

n: integer;

begin

readln(n);

writeln(4*(2*n+1),' спичек понадобится');

end.

а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.

25 декабря 1951 году был создан первый отечественный комп