Coding Menghitung volume tabung

program menghitung_volume_tabung;
uses wincrt;
var
r : integer;
t : integer;
l : real  ;
coba: char ;


begin

repeat
clrscr ;
writeln('program sederhana menghitung volume tabung');
writeln(' ');
write ('silahkan masukkan jari-jari = ');readln(r);
write ('silahkan masukkan tinggi = ') ; readln(t);
l:=pi*r*r*t;
writeln(' ');
writeln ('jadi luas tabung adalah = ',l:0:2);
writeln ('Coba lagi? Y or NO = '); readln(coba);

Until (coba =' N') or (coba = 'n') ;

end.