Ответ:
Как я понял вам нужен список чисел от 1 до 100(включительно):
numbers=[i for i in range(1,101)]
Сделай фор сплюснем потом также только с минусом
Ав+вд+де+еф=12 - кратчайший путь
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
<span>Program Task;
Const N = 5;
Var a: Array [1..N] of Integer;
i, k: Integer;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
If a[i] Mod 2 <> 0 Then
Begin
Write(a[i], ' ');
End;
WriteLn;
ReadLn;
End.
</span>