Номер §4.3 № 15

В Паскале символы строки нумеруются с единицы. Для слова ИНФОРМАТИКА позиции таковы: — И, — Н, — Ф, — О, — Р, — М, — А, — Т, — И, — К, — А. Выбираем нужные позиции и соединяем символы знаком +.

var
  s, a, b, c: string;
  k: integer;
begin
  s := 'ИНФОРМАТИКА';
  a := s[] + s[] + s[] + s[] + s[];
  b := s[] + s[] + s[] + s[] + s[];
  c := s[] + s[] + s[];
  k := length(a) + length(b) + length(c);
  writeln(a);
  writeln(b);
  writeln(c);
  writeln(k)
end.

Первое присваивание задаёт исходную строку. Следующие три получают требуемые слова по позициям. Функция length находит длину каждого полученного слова: length(a) = , length(b) = , length(c) = . Следовательно, k = + + = . Последние четыре строки выводят слова и их суммарную длину.