Язык пайтон. Пользователь вводит строку. Ваша задача - проверить, может ли эта строка, быть именем переменной.
Переменная не может начинаться с цифры, состоять только из цифр, не может содержать заглавные буквы и знаки пунктуации, кроме нижнего подчеркивания "_" . Также, она не может быть ни одним из зарегистрированных слов. При этом имя переменной, может состоять только из одного нижнего подчеркивания "_" .

Зарегистрированные слова можно взять из keyword. kwlist.

В итоге проверки, на печать выводится True, если такое имя переменной допустимо, и False - в противном случае.

Примеры имен переменных и результат (=> на печать выводить не нужно :))

_ => True
x => True
get_value => True
Get_value => False
get_Value => False
getValue => False
3m => False

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.