Perulangan For Dan While

Perulangan Menampilkan Angka berurutan berbentuk Segitiga


uses crt;
var
i,m,j: Integer;
n: Char;
begin

n:= 'y';
while n = 'y' do {lama n=y maka akan teus mengulang}
begin
clrscr;
Write('Masukkan sembarang angka : ');
Readln(m);

for i:= 1 to m do
begin
for j:= i to m do
begin
Write(j,' ');

end;
Writeln;
end;
writeln;
write('Ingin melakukan lagi ? (y) untuk Mengulang: ');
Readln(n);
end