1. поменяйте слово "мать" на "папа" ( в паскале) 2. Определите

program zz1;
var s1,s2:string;
i:integer;
begin
write(введите строчку ); //вводим исходную строчку
read(s1);
for i:=1 to length(s1) do //перебираем все буковкы строки от первой до заключительной
if copy(s1,i,4)=мать then begin delete(s1,i,4);insert(папа,s1,i);end; //копируем из строки по 4 буковкы, сопоставляем с "мать", если совпадает, то устраняем их и вставляем на то же место "папа"
writeln(s1); //выводим ответ
for i:=length(s1) downto 1 do //перебираем все буковкы строчки от заключительной до первой
s2:=s2+s1[i]; //получаем перевернутую строку
if s1=s2 then write(перевертыш) else write(не перевертыш); //сопоставляем две строчки, если совпадают, то "перевертыш", если нет, то нет.
end.