Luas-Segitiga pascal

var
  si1, si2, si3, kll :integer;
begin
   si1:=strtoint(s1.Text);
   si2:=strtoint(s2.Text);
   si3:=strtoint(s3.Text);
   kll:=si1+si2+si3;
   label5.caption:= inttostr(kll)+ 'Cm2';
end;

end.