1 принтер
2 мышь
3 процессор
4 принтер
5 системный блок
6 системный блок
7 карта расширения
8 Delete
9 цветной принтер
Пояснения надо?
Var
x: integer;
begin
Write('Введите число ');
Readln(x);
Writeln('Утроенное значение равно ', 3 * x)
end.
Источники: царевна, королевич Елисей, ветер, 7 богатырей и т.д.