6.4.. Izračunati sumu kvadrata dva učitana broja.

Listing programa:

PROGRAM P06411137;
VAR              { deklarisanje promjenljivih }
 a, b, s : Real;   { realne promjenljive }
BEGIN
  WRITELN('suma kvadrata 3 broja');  { naslov }

  Write('1. broj ');    { brojevi }
  Readln(a);

  Write('2. broj ');
  Readln(b);      
   
   s := SQR(a) + SQR(b);

  Writeln( 'a = ', a, 'b = ', b , 's = ', s );      { izlaz - vrijednosti }
  READLN;
END.

Ispis na ekranu:

Index