Program ASC;Var n=char;Begin While not eof do begin readln(n); n:=chr(ord(n)+32); writeln(n); end;end.(Pascal)
+32
