with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_Io, Ada.Integer_Text_IO;
procedure My_program_3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if ((num1 > num2) and (num1 > num3)) then
put(num1);
elseif (num2 > num3) then
put(num2);
else 
put(num3);
end if;
end if;
end My_program_3;