Решите плиз надо !!!!!!

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.