program tabung

program tabung;
uses crt;
var
        jarijari,tinggi:real;
const
        phi=3.14;
begin
clrscr;
        writeln('Program Luas dan Volume Tabung');
        writeln('==============================');
        write('Masukkan Jari-Jari Tabung:');readln(jarijari);
        write('Masukkan Tinggi Tabung:');readln(tinggi);
        writeln('Luas Tabung adalah:',(2*phi*jarijari)+(2*phi*jarijari):0:2);
        writeln('Volume Permukaan Tabung Adalah: ',phi*jarijari*jarijari*tinggi:0:2);
        readln;
end.