Program Phytagoras Menggunakan Case Of

Saya akan mencoba membuat program phytagoras. Sebenarnya ini adalah tugas dari dosen saya jadi sekalian aja saya posting, mudah-mudahan bisa bermanfaat bagi orang banyak :)
Saya membuat program menggunakan Pascal, oke langsung aja ke program :

Uses wincrt;
Var
m,a,t : real ;
pilih : integer ;

begin
writeln("Program Phytagoras");
writeln("1. Mencari Sisi Miring");
writeln("2. Mencari Sisi Alas");
writeln("3. Mencari Sisi Tinggi");
write("Pilih yang akan dicari : "); readln(pilih);
writeln("");

case pilih of
1:
begin
write("Masukan nilai alas : "); read(a);
write("Masukan nilai tinggi : "); read(t);
m := sqrt(sqr(a) + sqr(t));
write("Nilai sisi miringnya adalah ", m:6:2);
read;
end;

2:
begin
write("Masukan nilai miring : "); read(m);
write("Masukan nilai tinggi : "); read(t);
a := sqrt(sqr(m) - sqr(t));
write("Nilai sisi alasnya adalah ", a:6:2);
read;
end;

3:
begin
write("Masukan nilai miring : "); read(m);
write("Masukan nilai alas : "); read(a);
t := sqrt(sqr(m) - sqr(a));
write("Nilai sisi tingginya adalah ", t:6:2);
read;
end;

else
begin
write("Maaf, anda salah input");
end;

end;
end.


oke dah, selesai buat program phytagoras menggunakan pascal. Jika ada yang salah dalam penulisan silahkan tinggalkan komentar.
Semoga bermanfaat....