[CODE] PASCAL | LUAS LINGKARAN AND SEGITIGA

program hitung;
uses crt;

var
segitiga,lingkaran:string;
option,r,diameter,alas,tinggi:integer;
jari_jari,luas:real;
const
phi=3.14;

begin
clrscr;

writeln('hitung luas');
writeln('1.segitiga');
writeln('2.lingkaran');
write('masukan pilihan(number) :');
read(option);
writeln('pilihan = ',option);

if (option=1) then
begin
writeln('hitung luas segitiga');
write('alas = ');
read(alas);
write('tinggi = ');
read(tinggi);
luas:=(alas*tinggi)/2;
writeln('luas segitiga = ',luas:2:2);
readln
end

else if (option=2) then
begin
writeln('luas lingkaran');
writeln('phi = ',phi:2:2);
write('diameter = ');
read(diameter);
jari_jari:=diameter/2;
writeln('jari-jari = ',jari_jari:2:2);
luas:=phi*sqr(jari_jari);
writeln('luas lingkaran = ',luas:2:2);
readln;
end

else
write('pilihan salah');
readln;
readln;

end.