Все на рисунке во вложении.
Разбиваем данный текст по двое символов, далее, с помощью таблицы, расшифровываем и получаем слово — PROCEDURE
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
жесткий диск - хранение данных
ноутбук - серфинг по сети, хранение данных, электронная почта и т.п.
роутер - передача данных
жесткий диск - хранение данных
телефон - передача данных, общение
колонки (динамики) - прослушивание звуковых данных
монитор - получение визуальных данных
клавиатура, сканер, мышь, веб-камера - ввод данных
принтер - печать данных
и т.п.