6.. Izračunati korijen apsolutne vrijednosti sume kvadrata dva učitana broja.

Listing programa:

PROGRAM P06411145;
VAR              { deklarisanje promjenljivih }
  x, y, z :  REAL;
BEGIN
  WRITELN('Izraz');  { naslov }
  
  Write('1. broj ');
  Readln(x);      { ulaz - ucitavanja promjenljiva }

  Write('2. broj ');
  Readln(y);      { ulaz - ucitavanja promjenljiva }

  z := SQRT ( ABS ( x ) + ABS ( y ));

  Writeln( 'x = ', x, '  y = ', y, '  z = ', z);      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index