用free pascal 帮我完成以下练习！！急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/10 04:44:36
 1、a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
 2 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）
 3、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。
 4、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。
要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。

No.1
var
a,b,c:integer;
begin
a:=1;
b:=12;
c:=123;
writeln(a);
writeln(b);
writeln(c);
writeln('==============');
writeln(a:3);
writeln(b:3);
writeln(c:3);
end.

No.2
var
n,i:integer;
begin
readln(n);
for i:=1 to 4 do
begin
write(n mod 10);
n:=n div 10;
end;
writeln;
end.

No.3
var
i:integer;
s:string;
begin
s:='pascal';
for i:=1 to 6 do
write(chr(ord(s[i])-ord('a')+ord('A')));
writeln;
end.

No.4
var
s:real;
begin
readln(s);
writeln(s:0:0);
writeln(trunc(s),' ',s-trunc(s):0:0);
writeln(round(s));
end.

To 楼上
你的程序有问题……
1、在NOIP的比赛里输出文件的末尾都要有一个回车
2、你第四题如果直接打writeln(a）的话，会成为科学计数法

To 问问题的人
我的电脑是vist