TUgas

program tugas;
uses wincrt;
var
i:integer;
pil:char;




procedure garis;
begin
writeln('===========================');
end;


procedure segitiga;
var
a:real;
b:integer;
c:real;
 begin
 write('Alas   :');readln(a);
 write('Tinggi :');readln(b);
 c:=(a*b)/2;
 writeln('Rumus : Alas x Tinggi / 2 ');
 writeln;
 writeln ('luas_segitiga:',c:0:2);
 writeln('===========================');
 end;

 procedure persegi_panjang;

 var
 a:integer;
 b:integer;
 c:integer;
 begin
 write('Panjang:');readln(a);
 write ('Lebar:');readln(b);
 c:=a*b;
 writeln('Rumus : Panjang x Lebar');
 writeln;
 writeln('Luas_persegi_panjang:',c);
 writeln('==========================');
 end;



 begin
 for i:=1 to 3 do
 begin
 writeln('Pilih Rumus yang diinginkan');
 garis;
 writeln('1.luas segitiga');
 writeln('2.luas_persegi_panjang');
 garis;
 write ('input pilihan(1,2,)='); readln(pil);
 garis;
 writeln;
 case pil of
 '1':segitiga;
 '2':persegi_panjang;

 end;
 end;
 end.