Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with Ada.Text_IO;
- use Ada.Text_IO;
- procedure Main is
- Name : STRING (1..50);
- begin
- Put("Hallo, whats your name?");
- Get(Name);
- if (Name = "William") then
- Put_Line ("Hai william");
- elsif (Name = "Erick") then
- Put_Line ("Hai erick");
- else
- Put_Line ("i dont know, who are you!");
- end if;
- end Main;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement