ADA Program to find area of rectangle

Program

With Gnat.IO; use Gnat.IO;
procedure areaofrectangle is
	length : Integer;
	breadth : Integer;
	area : Integer;
begin
	Put ("Enter the length: ");
	Get (length);
	Put ("Enter the breadth: ");
	Get (breadth);
	area := length * breadth;
	Put_Line ("Area = " & integer'image(area));
end;

Output

$ gnat make areaofrectangle.adb
gcc -c areaofrectangle.adb
gnatbind -x areaofrectangle.ali
gnatlink areaofrectangle.ali
$ ./areaofrectangle
Enter the length: 12
Enter the breadth: 6
Area =  72