Дано предложение. вывести 'столбиком' его третий, шестой и.т.д. символ

На pascal ABC
var i:integer;
a:string;
begin
readln(a);
i:=3;
while i<=length(a) do begin
writeln(a[i]);
i+=3;
end;
end.