Ответ Автор - farodis var P,a,h: integer;S: real;begina:=12;h:=5;S:=1/2*a*h;P:=3*a;writeln('Площадь треуголника = ',S);writeln('Периметр треуголника = ',P);end.