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

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