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

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

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

program U16Z2;
var   s: string;
  i: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  for i:=1 to length(s) do
    if ((i mod 5)=0) then
      writeln(s[i]:2);
  readln();
end.