Question

Дан текст.составьте программу ,вставляющую после буквы "я " слог "мал"

Answer 1

var s:string; i:integer;
begin
write('Введите текст: '); readln(s);
for i:=1 to length(s) do
if s[i]='я' then write('ямал') else write(s[i]);
end.