Program Mencari Luas Permukaan Tabung

Program MencariLuasPermukaanTabung;

procedure hitung(r,t : real);
var
LPT, LST : real;
begin
LPT := 2*3.14*r*r;
LST := 2*3.14*r*t;
writeln(‘Jari-jari = ‘,r:2:2);
writeln(‘Tinggi = ‘,t:2:2);
writeln(‘Luas permukaan tabung = ‘,LPT:2:2);
writeln(‘Luas selimut tabung = ‘,LST:2:2);
end;
var
r, t : real;
begin
write(‘Masukan nilai Jari-jari = ‘);
readln(r);
write(‘Masukan nilai tinggi = ‘);
readln(t);
hitung(r, t);

end.