7.2.. Napisati program za ispis drugog korijena upisanog broja ako je moguće inače ispisati 'Nedefinisan'.

Listing programa:

PROGRAM P07211032;
USES
  WinCrt;
VAR                            { deklarisanje promjenljivih }
  x : REAL;                    { realne promjenljive }
BEGIN
  WRITE('Broj  ');
  READLN( x );                 { ulaz - ucitavanje vrijednosti }
  IF x>= 0 THEN                { ako je podkorijena velicina veca ili jednaka 0, tada }
    WRITELN('x = ', x, ' korijen od x ', SQRT (x))    { podkorijena velicina veca ili jednaka 0 - izracunaj korijen }
  ELSE                         { inace } 
    WRITELN('Nedefinisan');    { ispis }
END.

Ispis na ekranu:

Index