алг 
нач 
вещ A, B, C, P 
A := 3 
B := 4 
C := 12 
треугольник на гранях(A, B, C, P) 
вывод P 
кон 
 
 
алг треугольник на гранях (арг вещ a, b, c, рез вещ p)     | (А68) 
дано a>0 и b>0 и c>0 
надо | p - периметр треугольника (рис.83) 
нач вещ x,y,z 
гипотенуза (a,b,x) 
гипотенуза (b,c,y) 
гипотенуза (c,a,z) 
p:=x+y+z 
кон 
 
 
алг гипотенуза (арг вещ a,b, рез вещ c)                     | (А62) 
дано a>=0  и b>=0 |длины катетов треугольника 
надо | c = длина гипотенузы этого треугольника 
нач 
c := sqrt (a**2 + b**2) 
кон 
 
 
 
