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