задача 2 урок 17

задача 2 урок 17

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

РЕШЕНИЕ

program task_2_lesson_16;
var s: string;
    i: integer;

begin
  writeln('vvedite stroku');
  readln(s);
  i := 5;
  if (length(s) < 5) then
    writeln('ERROR storks men`she 5 simvolov')
  else
    while (i <= length(s)) do
      begin
        write(s[i],'|');
        i:= i + 5;
      end;
  readln()
end.