check.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with Text_IO;           use Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

procedure check is

   Price_Per_Kilo  : Float; --Price of apples
   Kilos_Of_Apples : Float; --Apples required
   cost            : Float; --Cost of apples

begin
   Price_Per_Kilo  := 1.20; --Set cost