Здесь очень просто: телевидение и интернет ( можно добавить телефон)
program choise;
var m:integer;
begin
writeln('Введите натуральное число ');
read(m);
if m=1 then
writeln('Привет')
else if m=0 then
writeln('Как дела?')
else
writeln('Пока');
end.
Word - Абзац - Отступы и интервалы - Интервал
DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
A), b) и d). Разработкой программного обеспечения занимается программист.