6.4.. Za poznate vrijednosti stranice i visine trougla izračunati odgovarajuću površinu (P=a*h/2).

Listing programa:

PROGRAM P06411059;
VAR              { deklarisanje promjenljivih }
  a, h, P : Real;    { realne promjenljive }
BEGIN
  WRITELN('Povrsina trougla');  { naslov }
  Write('Stranica ');
  Readln(a);           { ulaz - ucitavanja stranice }
  Write('Visina ');
  Readln(h);           { ulaz - ucitavanja visine }

  P := (a*h)/2;        { obrada - proracun }
   
  Writeln('a = ', a, '  h = ', h, ' P = ', P);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index