Задача 2 Урок 17

Задача 2 Урок 17

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

var s: string;
    i, n: integer;
begin
  write('enter an arbitrary string ');
  readln(s);
  writeln();
  n := length(s);
  if n < 5 then
   writeln('ERROR')
  else
   for i := 1 to n do
    if i mod 5 = 0 then write(s[i], ' ');
  readln();
end.    

Вывод консоли:

enter an arbitrary string qwdsw321df2wreff

The fifth character: w, The fifth character: f, The fifth character: f,