MENGHITUNG LUAS

MENGHITUNG LUAS 

uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;

begin
  writeln('Program Menghitung Luas Lingkaran');
  write('Masukkan jari-jari = ');readln(r);
  l_lingkaran:=3.14*r;
  writeln('Luas Lingkaran = ',l_lingkaran:10:2);
  writeln('Program Menghitung Volume Tabung');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi = ');readln(t);
  v_tabung:=3.14*r*r*t;
  writeln('Volume Tabung = ',v_tabung:10:2);
  writeln('Program Menghitung Volume Kerucut');
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi = ');readln(t);
  v_kerucut:=0.5*3.14*r*t*r;
  writeln('Volume Kerucut = ',v_kerucut:10:2);
  { TODO -oUser -cConsole Main : Insert code here }
end.