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. Glavna dijagonala i=j	Slika 2. Sporedna dijagonala i+j = n+1

Listing programa:

PROGRAM p08514031;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
 
BEGIN
  WRITELN('Trougao');  { naslov }
   
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }
 
  { gornji trougao kao glavna dijagonala }
  FOR i:=1 TO n DO
    BEGIN
      FOR j:=1 TO n DO
        IF i >= j THEN        { ispod glavne dijagonale? }
          WRITE(j, ' ');      { indeks }
      WRITELN;
    END;

  { donji trougao kao sporedna dijagonala }
  FOR i:=1 TO n DO
    BEGIN
      FOR j:=1 TO n DO
          IF i + j <=  n + 1 THEN   { iznad sporedne dijagonale? }
            WRITE(j, ' ');    { indeks kolone }
      WRITELN;
    END;
END.

Ispis na ekranu:

Index