Дано слово s1, получить слово s2, образованное буквами слова s1, стоящее на…

var s1, s2: string; i: integer; begin s2: ='; //Присваиваем строке начальное пустое значение writeln ('Введите слово s1'); readln (s1); for i: =1 to length (s1) do //length (s1) — длина строки s1 if i mod 2=0 then s2: =s2+s1[i]; writeln ('Полученное слово: ', s2); end.