Помогите решить задачи в PASCAL !!!
1)Дано предложение. Напечатать все его буквы «и».
2)Дано предложение. Вывести столбиком его третий, шестой и т. д. символы.

1)program a;var s:string;i:integer;beginreadln(s);for i:=0 to length(s) doif(s[i]='и') then write('и');end.2)program a;var s:string;i:integer;beginreadln(s);for i:=1 to round(length(s)/3) dowriteln(s[i*3]);end.

1)vartext:string;i:integer;beginreadln(text);for i:=1 to Length(text) doif text[i]='и' thenwrite('и ');end.2)vartext:string;i:integer;beginreadln(text);for i:=1 to (Length(text)  div 3) dobeginwriteln(text[i*3]);end;end.