Program Chaine_Majus_Minus;
Var ch : String;
i : Integer;
Begin
Writeln ('Saisir une chaîne de caractères');
Readln (ch);
For i:=1 To Length (ch) Do
If ch[i] in ['a'..'z']Then ch[i]:=ch[i]
Else ch[i]:=CHR (ORD (ch[i]) + 32);
Writeln (ch);
Writeln ;
For i:=1 To Length (ch) Do ch[i]:=upcase (ch[i]);
Writeln (ch);
End.