Contoh Pascal Program Menghitung Luas Permukaan Tabung

program menghitungluaspermukaantabung  ;

uses crt;

Function
luas(r,t:real):real;
begin luas:=2*22/7*r*(r+t);end;
var r,t:integer;

begin
clrscr;writeln('oooooooooooooooooooooooooooooooooo');
writeln('menghitung luas permukaan tabung');
writeln('oooooooooooooooooooooooooooooooooo');
writeln('masukan nilai jari jari:');readln(r);
writeln('masukan nilai tinggi:') ;readln(t);
writeln ('luas permukaan tabung adalah............. =',luas (r,t));
readln;
end.