Pascal编程

2、 a,b,c分别等于1、12、123，把它们按向左对齐逗御如、向右对齐的方式打印出来。

program Noname15;
var i,p:integer;
begin
for i:=1 to 3 do begin
for p:=1 to i do
write (p);
writeln;
end;
writeln ('*****');
for i:=1 to 3 do begin
write (1:4-i);
for p:=2 to i do
write (p:2);
writeln;
end;
writeln ('*****'拆运);
for i:=1 to 3 do begin
write (1:4-i);
for p:=2 to i do
write(p);
writeln;
end;
end.

3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）

program Noname11;
uses crt;
var a:longint;
procedure print(c:longint);
begin
if c>99 then begin
write (c mod 10);
print (c div 10);
end else begin
write (c mod 10);
write (c div 10);
end;
end;
begin
Readln(a);
print (a);
readkey
end.

4、 从键盘上读入小写的"pascal"，利用山启CHR（）和ORD（）函数，输出大写的"PASCAL"。

program Noname10;
uses crt;
var c:packed array[1..10]of char;p:integer;
begin
read (c);
p:=1;
while ord(c[p])<> 0 do
begin
write(chr(ord (c[p])-32));
inc(p);
end;
readkey;
end.

5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。

program Noname12;
uses crt;
var a:real;
begin
Readln(a);
writeln;
writeln (a);
writeln (trunc(a));
writeln (a-trunc(a));
writeln (round(a));
readkey
end.

6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出

program Noname13;
uses crt;
var a,b:real;
begin
readln (a,b);
writeln ('s=',a*b);
writeln ('c=',(a+b)*2);
readkey
end.
7、 输入一个时、分、秒，把它转换为一个秒数。

program Noname14;
uses crt;
var s,m,h:integer;
begin
write ('H=');
Readln(h);
write ('M=');
readln (m);
write ('S=');
readln (s);
writeln;
if h*m<>0 then
writeln (s+60*(h*m))
else if h=0 then
writeln (s+60*m)
else if m=0 then
writeln (s+3600*h);
readkey
end.

晕，这个已经淘汰的程序...写这么多代码？
倒~~想帮也帮不上，两小时都写不完啊。

这么弱智的题目也问，在任何书上都会有解答的！
不过，我佩服楼上的毅力，竟然做了！

第1题是什么意思?