(*            Teresa Tong  F.4AS  21/9/2001                *)
(* To find the total surface area of a solid cylinder area *)

Program cylinder_area;
Uses Wincrt;
Var AREA, RADIUS, HEIGHT :REAL;
begin

  WRITELN ('What is the radius of the cylinder? ');
  READLN (RADIUS);
  WRITELN ('What is the height of the cylinder? ');
  READLN (HEIGHT);
  AREA :=(2 * pi * RADIUS * HEIGHT + pi * 2 * RADIUS * RADIUS);
  WRITELN ('The total surface area of the cylinder is ',AREA:10:6)
end.
-----------------------------------------------------------------------------
e.g. 
What is the radius of the cylinder?
5
What is the height of the cylinder?
5
The total surface area of the cylinder is 314.159265

    Source: geocities.com/ttt_7_ttt/home6

               ( geocities.com/ttt_7_ttt)