program nilai

Program Nilai;
uses wincrt;
var
i,n,j:integer;
Y,T:string;
begin
clrscr;
writeln ('nama : hadi khusnan');
writeln (‘nim : 110910117’);
writeln;
write('ingin masuk tekan "enter" .... '); readln;
clrscr;
repeat
gotoxy(20,2); write('perulangan');
writeln;
writeln;
writeln('program nilai');
writeln;
write('Masukkan Beberapa Kali Perulangan = '); readln(n);
writeln;
for i:=1 to n do
begin
for j:=1 to i do
write(j);
writeln;
end;
for i:=(n-1) downto 1 do
begin
for j:=1 to i do
write(j);
readln;
end;
readkey;
writeln;
writeln('hitung lagi "[y/t]" lalu enter');readln(y);
clrscr;
until y='t'
end.