program barisan

program barisan;
uses wincrt;
var n,b,k:integer;
begin
clrscr;
Writeln('Program Membuat Barisan');
writeln;
writeln('****************************************');writeln('* Nama : hadi khusnan');gotoxy(40,4);writeln('*');
writeln('* Nim : 110910117');gotoxy(40,5);writeln('*');
writeln('* Kelas : IIB');gotoxy(40,6);writeln('*');
writeln('* Kelompok : C');gotoxy(40,7);writeln('*');
writeln('****************************************');
writeln;
writeln;
write ('masukkan nilai= '); readln (n);
for b:=1 to n do
begin
for k:=1 to b do
write (k);
writeln;
end;
for b:=n-1 downto 1 do
begin
for k:=1 to b do
write (k);
writeln;
end;
end.