membuat program menghitung segitiga dengan Turbo Pascal

uses wincrt;
var
a1,a2,s,l,k:real;
Begin
write ('masukkan angka alas:');readln (a1);
write ('masukkan angka tinggi:');readln (a2);
s:=sqrt(a1*a1+a2*a2);
l:=0.5*a1*a2 ;
k:=a1+a2+s ;
writeln('sisi miringnya:',s:2:2);
writeln('luasnya:',l:2:2);
writeln('kelilingnya:',k:2:2);
end.