6.4.. Napisati  program za izračunavanje stranice trougla ako je poznata površina i visina trougla (P=a*h/2)

Listing programa:

PROGRAM p06411130; 
USES 
  WinCRT;
VAR
  p, h, a: REAL;
BEGIN
  WRITELN('Unesi P i h ');
  READLN(P, h);
  a := (2*P)/h;;
  WRITELN('P=',p:4:2, '  h=',p:4:2,' a=',p:4:2);
END.

Ispis na ekranu:

Index