contoh program pascal | perhitungan segitiga

contoh program pascal | perhitungan segitiga
uses wincrt;
var A:integer;
begin
clrscr;
Writeln ('masukan rumus: 1> pesegi 2>segi tiga');readln(A);
case (a) of
1:write('Rumus Yang anda pilih',a,'adalah persegi panjang');
2:write('Rumus Yang anda pilih',a,'adalah segi tiga');
else write('tetot');
if (1)then
begin
write('masukan panjang:');readln(p);
write('masukan luas:');readln(l);
luas:=p*l;
writeln('luas',luas);
end
else
begin
write('masukan alas:');readln(al);
write('masukan tinggi:');readln(t);
hasil:=0.5*al*t;
writeln('hasil',hasil);
end;
end.