帮忙解两题pascal基础题.

var s:string;i:longint; begin readln(s); for i:=1 to length(s) do writeln(chr(ord(s[i]-32))); end. var a:real; begin readln(a);writeln(a); writeln(trunc(a); writeln(a-trunc(a)); writeln(round(a)); end.