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

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

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

Решение:

program u17z02;
var s:string;
  i:integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  i:=0;
  while i < length(s) do
  begin
    i:=i+5;
    write(s[i],', ');
  end;
  readln();
end. 

Консоль:

vvedite stroku:
privet mir
e, r,