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

1)  program    ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do  begin  k:=pos('м',s);  if klt;gt; 0 then begin  delete(s,k,1);  insert('п',s,k);end;  end;  writeln(s);  end.
2    )program ab;
 vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]lt;gt;s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.