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

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

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

var i,k:integer; s:string;
begin
  readln(s);
  if length(s)<5 then
     write('oshibka')
  else
    for i:=1 to length(s) do
      if (i div 5>=1)and (i mod 5=0) then
        writeln(s[i]);
  readln();
end.