menghitung volume dan luas

      program tabung;
uses crt;
var
   r,t : real;
   volume,luas : real;
begin
TextBackground(45);
TextColor(43+ 128);
   writeln('Program Menghitung Luas & volume tabung');
   writeln('m wildanmiftahulhuda');
   TextBackground(7);
TextColor(48+ 128);
   writeln;
   write('masukan nilai jari jari = ');readln(r);
   write('masukan nilai tinggi = ');readln(t);
   writeln;
volume:=2*22/7*r*t;
luas:=2*22/7*r*(r+t);
TextBackground(45);
TextColor(46+ 128);
   writeln('volume      = ',volume);
   writeln('luas  = ',luas);
   writeln;
   readln;
end.