TUGAS TIK

uses wincrt;

var
a,t,sm,kl,ls:real;
begin

write('masukkan alas    : ');readln(a);
write('masukkan tinggi  : ');readln(t);
sm:=sqrt(a*a+t*t);
writeln('sisi miring : ' ,sm:2:2);
kl:=a+t+sm;
writeln('keliling : ' ,kl:2:2);
ls:=0.5*a*t;
writeln('luas : ' ,ls:2:2);

end.