процедуры состоит из слова procedure, за которым следует имя процедуры, которое используется для активации ее выполнения. Если у процедуры есть то они указываются после имени процедуры, в скобках. Завершается заголовок процедуры символом «Точка с запятой».​

1 Глобальная компьютерная сеть – это:
Г совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему.

2 Локальные компьютерные сети как средство общения используются только для:
г) осуществления обмена данными между несколькими пользователями, организации доступа к устройствам вывода и к общим информационным ресурсам местного значения.

3 Телеконференция – это:
в) система обмена информацией между абонентами компьютерной сети;

4 Компьютер, подключенный к Интернету, обязательно имеет:
а) IP-адрес;

5 Гипертекст – это:
б) структурированный текст, в котором могут осуществляться переходы по выделенным меткам;

6 Серверы Интернет, содержащие файловые архивы, позволяют
а) скачивать необходимые файлы;

7 Россия имеет следующий домен верхнего уровня в Интернете
б) ru;

8 Транспортный протокол (TCP) обеспечивает
а) разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения; (в учебнике написано так, но это неправда, конечно. TCP и IP - разные протоколы, TCP не требует наличия каких-то "IP-пакетов")

9 HTML (Hyper Text Markup Language) является:
а) средством создания Web-страниц;

10 Задан адрес электронной почты в сети Internet [email protected] Каково имя владельца этого электронного адреса?
б) user_name; (то, что стоит до собачки @ - имя, после - домен)

11 Модем – это:
г) техническое устройство.

12 Браузеры (например, Microsoft Internet Explorer) являются:
г) средством просмотра Web-страниц.

13 Почтовый ящик абонента электронной почты представляет собой:
б) часть памяти на жестком диске почтового сервера, отведенную для пользователя;

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!