Переменная величина (числовая, строковая (текстовая)) при выполнении программы может изменять свое значение, а константы - нет.
Var a:array[1..101] of integer;
b:array[1..101] of integer;
i,q,s,l,m:integer;
n:real;
begin
i:=1;
q:=1;
l:=1;
while q<>0 do
begin
write ('Введите ',i,' число: ');
read (a[i]);
q:=a[i];
i:=i+1;
s:=i-2;
end;
for i:=1 to s do
begin
if a[i] mod 8 = 0 then
begin
b[l]:=a[i];
m:=l;
l:=l+1;
end;
end;
for l:=1 to m do
begin
n:=n+b[l];
end;
n:=n/m;
if l=1 then write ('NO') else write ('Среднее африметическое = ',n:0:1);
end.
//название
var n: integer;
begin
repeat
n:=readinteger('Введите порядковый номер: ');
until n in [1..52];
case (n mod 13) of
1: write ('Двойка');
2: write ('Тройка');
3: write ('Четверка');
4: write ('Пятерка');
5: write ('Шестерка');
6: write ('Семерка');
7: write ('Восьмерка');
8: write ('Девятка');
9: write ('Десятка');
10: write ('Валет');
11: write ('Дама');
12: write ('Король');
0: write ('Туз');
end;
if n mod 13<>0 then n:=(n div 13) + 1 else n:=n div 13;
case n of
1: write (' бубен');
2: write (' черви');
3: write (' трефы');
4: write (' пики');
end;
end.
Яблоня-ствол-корень-ветви-листва-плод(яблоко)
Адрес семечка: яблоня-ствол-ветка-яблоко-семечка