8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova:
.

Opis programa: Na slici je prikazan odnos redova i kolona.

Slika 1. Sporedna dijagonala i+j = n+1

Listing programa:

PROGRAM p08514029;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, n, k : Integer;

BEGIN
  WRITELN('Trougao');  { naslov }
  WRITE('Broj redova: ');    { ulazne promjenljive }
  READLN(n);                 { broj redova }

  FOR i:= n DOWNTO 1 DO
    BEGIN
      k := i;               { brojac - pocetna vrijedost indeks reda}
      FOR j:=1 TO i DO
        BEGIN
          WRITE(k, ' ');     { brojac }
          k := k + 1;        { brojac + 1}
        END;
      WRITELN;
    END;
END.

Ispis na ekranu:

Index