-- #otsailak11: Zientziako Emakumearen eta Neskaren Nazioarteko Eguna

-- Ada Lovelace historiako lehen programatzailetzat hartzen da. 
-- Matematikaria, asmatzailea, eta ingeniaria ere izan zen, beste gauza askoren artean.

WITH Text_IO;
PROCEDURE Programazioaren_Sorrera (urtea IN Integer, 
								   nor IN String ) IS
sortuDa : Boolean := False;
BEGIN
	IF urtea = 1843 AND nor = "Ada Lovelace" THEN
		Ada.Text_Io.Put_Line("Lehen ordenagailu programa, Bernoulliren zenbakiak kalkulatzeko.");
		Ada.Text_Io.Put_Line("Ordenagailua ariketa sinpleak egiteko baino gehiago zela erakutsi.");
		Ada.Text_Io.Put_Line("Aurkikuntza horrek programazioaren sorrera bultzatu");
		sortuDa := True;
	END IF;

	WHILE sortuDa LOOP
		urtea := urtea + 1;	
		IF urtea = 1943 THEN
			Ada.Text_Io.Put_Line("Lehen programazio lengoaia: Plankalkül");
		END IF
		IF urtea = 1980 THEN
			Ada.Text_Io.Put_Line("Ada lengoaia sortu, Ada Lovelaceren omenez izendatua.");
		END IF;
	END LOOP;
END Programazioaren_Sorrera;