Menghitung Volume Tabung Menggunakan Pascal

program Volume_Tabung;
uses crt;

var
r,t,p:integer;
volume:real;

begin
clrscr;
        textcolor(lightred);
        writeln('======= ==================== ======');
        writeln('=======   Tugas Pascal   3   ======');
        writeln('=======   Volume    Tabung   ======');
        writeln('======= ==================== ======');
        textcolor(lightgreen);
        write('masukan nilai jari = ');
        readln(r);

        write('masukan nilai tinggi = ');
        readln(t);
        volume:= (3.14*r*r*t);

        write(' volume tabung = ',volume:0:2);
        write(' volume tabung = ',round(volume));
        write(' volume tabung = ',trunc(volume));
        readln;
end.