Сделать цикл в программе Basic

1)

a = int(input("введіть 1 число: "))

b = int(input("введіть 2 число: "))

c = int(input("введіть 3 число: "))

d = int(input("введіть 4 число: "))

e = int(input("введіть 5 число: "))

f = int(input("введіть 6 число: "))

d = int(input("введіть 7 число: "))

q = int(input("введіть 8 число: "))

w = int(input("введіть 9 число: "))

z = int(input("введіть 10 число: "))

suma = [a,b,c,d,e,f,d,q,w,z]

print('сума введених чисел = ',sum(suma))

2)

s = 0

while true:

a = int(input("введіть число: "))

s += a

print("сума введених чисел: ",s)

if a == 0:

break

Const
  N = 30;

var
  a: array [1..N] of integer;
  i, nel, x: integer;

begin
  writeln('Введите элементы массива');
  for i := 1 to N do read(a[i]);
  writeln('введите Х');
  readln(x);
  nel := 0;  // номер найденного элемента
  i := 1;
  while (i <= n) and (nel = 0) do
  begin
    if a[i] = x then nel := i;
    i := i + 1
  end;
  if nel > 0 then
    writeln('Номер элемента ', nel)
  else
    writeln('Не найден элемент, удовлетворяющий условию')
end.

Тестовый пример:

Введите элементы массива
1 3 6 8 4 9 14 -4 7 45 4 8 0 23 63 253 23 453 54 20 54 12 -56 3 0 -34 28 27 90 23
введите Х
0
Номер элемента 13