uses crt;
var
x, k, tin, y: integer;
begin
clrscr;
write('Masukkan Jumlah Angka : '); readln(x);
k := x;
for tin := 1 to x do
begin
for y := 1 to x do
begin
if (tin = y) or (y = k) then
begin
write(y);
end
else
begin
write(' ');
end;
end;
k := k - 1;
writeln(' ');
end;
readln;
end.
Tidak ada komentar:
Posting Komentar