mirror of
https://github.com/epasveer/seer.git
synced 2026-08-30 00:50:42 +08:00
18 lines
281 B
Ada
18 lines
281 B
Ada
|
|
||
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
||
|
|
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
||
|
|
|
||
|
|
procedure helloadaexceptions is
|
||
|
|
|
||
|
|
x :integer range 1..20;
|
||
|
|
y :integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
put("enter a number "); get(y);
|
||
|
|
x:=y;
|
||
|
|
put("thank you");
|
||
|
|
|
||
|
|
end helloadaexceptions;
|
||
|
|
|