PROGRAM PENGHITUNG LUAS TABUNG

Program LuasTabung;
Uses wincrt;
Var
   Luas, r , t : real;
Begin
     writeln('masukkan jari-jari : ');
     readln(r);
     writeln('masukkan tiggi tabung : ');
     readln(t);
     Luas := 2 * (22/7) * r * (r+t);
     writeln ('luas permukaan tabung adalah ', round(Luas));
End.