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

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

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

var i, p: integer;
    s: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
  if( length(s) >= 5) then
    begin
      for i := 1 to length(s) do
        if((i mod 5) = 0) then
          writeln(s[i]);
    end
  else
    writeln('ERROOR');
  readln();
end.