Tautogramme Programtautogramme;Vars:string;Procduresaisir(vars:string);Vari:integer;c:char;Begini:=0writeln(donnerlaphrasevalideparcaractre);repeatreadln(c);whilenot(cin[a...z,,;,.])dobeginwriteln(donneruncaractrevalide);readln(c);end;i:=i+1;s[i]:c;untils[i]:=.;end;functiontauto(vars:string):boolean;vara:char;i:integer;tauto:boolean;

begin a:=s[1] i:=1; tauto:=true while(s[i].)andtautodo begin ifs[i]=then tauto:=s[i+1]=a; i:=i+1; end; tauto:=tauto;end;beginsaisir(s);iftauto(s)=truethenwriteln(letexteestuntautogramme)elsewriteln(letextenestpasuntautogramme);readln;end.