1. Программа вычисления объема пирамиды с основанием
   в виде треугольника ABC и высотой H.

program PIRAMIDA(input,output); (*   объем пирамиды           *)
var          А,B,C,             (*   стороны треугольника     *)
                 H,             (*   высота пирамиды          *)
                 P,             (*   периметр основания       *)
                 S,             (*   площадь основания        *)
                 V:real;        (*   объем пирамиды 1/3*S*H   *)
begin
   writeln('A, B, C, H');       (* вывод сообщения на экpан   *)
   readln(A,B,C,H);             (* ввод значений с клавиатуры *)
   P:=(A+B+C)/2.0;              (* периметр                   *)
   S:=sqrt(P*(P-A)*(P-B)*(P-C));(* площадь тр. по форм. Герона*)
   V:=S*H/3.0;                  (* объем                      *)
   writeln(' V = ',V:10:3);     (* вывод результата           *)
end.

      2. Программа нахождения наибольшего среди трех
                 заданных чисел:  A, B, C.

program MAX(input,output);      (* наибольшее число из трех   *)
var A,B,C:real;
begin
  writeln('ВВЕДИТЕ ТРИ ЧИСЛА'); (* вывод сообщения на экран   *)
  readln(A,B ;                  (* ввод данных с клавиатуры   *)
   if A>B then
               if A>C then writeln('max = ',A:6:3)
                      else writeln('max = ',C:6:3)
          else
               if B>C then writeln('max = ',B:6:3)
                      else writeln('max = ',C:6:3);
end.