关于Pascal!!

楼上的一句write都没有，，，
var
i,j,n:integer;
c:char;
begin
readln(n,c);
for i:=1 to n do begin
for j:=1 to i do write(c);
writeln;
end;
end.

program dd;
var
i,n:integer;
c:char;
begin
readln(n,c);
for i:=1 to n do writeln(c:i);
end.

program liuq;
var
i,j,n:longint;
ch:char;
begin
readln(n);
readln(ch); //读入
for i:=1 to n do //循环行
begin
for j:=1 to i do //循环列
write(ch);
writeln; //换行
end;
end.

program ex;
var i,j,l:longint;
ch:char;

begin
readln(l);
readln(ch);
for i:=1 to l do
begin
for j:=1 to i do
begin
write(ch);
end;
writeln;
end;
end.

var
c,d,n:longint;
x:char;
begin
readln(n);
readln(x);
for c:=1 to n do
begin
for d:=1 to c