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.
UHJvZ3JhbSBDaGFpbmVfTWFqdXNfTWludXM7ClZhciBjaCA6IFN0cmluZzsKaSA6IEludGVnZXI7CkJlZ2luCldyaXRlbG4gKCdTYWlzaXIgdW5lIGNoYcOubmUgZGUgY2FyYWN0w6hyZXMnKTsKUmVhZGxuIChjaCk7CkZPUiBpOj0xIFRvIExlbmd0aCAoY2gpIERvCklGIGNoW2ldIGluIFsnYScuLid6J11UaGVuIGNoW2ldOj1jaFtpXQpFbHNlIGNoW2ldOj1DSFIgKE9SRCAoY2hbaV0pICsgMzIpOwpXcml0ZWxuIChjaCk7CldyaXRlbG4gOwpGT1IgaTo9MSBUbyBMZW5ndGggKGNoKSBEbyBjaFtpXTo9dXBjYXNlIChjaFtpXSk7CldyaXRlbG4gKGNoKTsKRW5kLg==