1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
int:natural;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(0..30);
Last_Name : string(0..30);
Job : constant STRING := "Computer Programmer";
location : string(0..15) ;
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO; 
--use Ada.Text_IO;
 
procedure hello is
begin
   Ada.Text_IO.Put_Line ("Hello world in Ada");
end Hello;
 

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type matrix_multiplication is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure matrix_multiply is
 
type array_mul is array(0..2,0..2) of integer;
array_1 : matrix_multiplication ;
array_2 : matrix_multiplication;
Addition   : matrix_multiplication;
 ...