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

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

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

var s :string;
    n :integer;

begin
  s := 'Lorem Ipsum is simply dummy text of the printing and typesetting industry';
  n := 0;
  if length(s) < 5 then
    writeln('Error')
  else
    while (n <= length(s)) do
    begin
      n := n + 5;
      writeln(s[n]);
    end;
end.