Question

Решите!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

var a,b:integer;

begin

a:=12;

b:=5;

writeln('S = ', a*b);

a:=a+b;

writeln('P = ', 2*a);

end.

Answer 2

var P,a,h: integer;

S: real;

begin

a:=12;

h:=5;

S:=1/2*a*h;

P:=3*a;

writeln('Площадь треуголника = ',S);

writeln('Периметр треуголника = ',P);

end.