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

Урок 17

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

var s: string;
    i: integer;

begin
  writeln('Введите строку');
  readln(s);
  if length(s) >= 5 then
  begin
   for i := 1 to length(s) do
     if ((i mod 5) = 0) then
      write(s[i], ' ');
  end
  else
    writeln('Error!');
  readln();
end.

КОНСОЛЬ

Введите строку
ergege
g