#Program_Komputer | Program Menghitung Luas Tabung Tertutup

Program Menghitung_Luas_Tabung_Tertutup;
Uses dos, crt;
Var
   Ch:Char;
   Luas,pi,radius,tinggi:real;
Begin
     clrscr;
     writeln('Program ini di buat oleh:');
     writeln('Nama           : Wiwit Safitri');
     writeln('NIM            : ACA 113 033');
     writeln('Program study  : Pendidikan Matematika');
     writeln('Mata Kuliah    : Program Komputer');
     writeln('Dosen Pengajar : Drs. Elyasib Y Lada, M.Pd');
     writeln;
     writeln('Menghitung Luas Tabung Tertutup');
     write('Tuliskan radiusnya = ');
     readln(radius);
     write('Tuliskan tingginya = ');
     readln(tinggi);
     Luas:=2*22/7*radius*(radius+tinggi);
     writeln('Luas tabung tertutup adalah = ',luas:5:2,' cm2');
     Ch:=readkey;
End.