SEGITIGA PASCAL

uses wincrt;
var
a,t,sm,ls,k:real;
begin
write('masukan angka pertama:');readln(a);
write('masukan angka kedua:');readln(t);
write('masukan angka ketiga:');readln(sm);
ls:=(a*t)/2;     
k:=a+t+sm;
writeln('hasilnya:',ls:2:2);
writeln('hasilnya:',k:2:2);

end.