```

with Ada.Text_IO;              use Ada.Text_IO;
with Ada.Float_Text_IO;        use Ada.Float_Text_IO;

procedure Help is
    F: Float
    S: String(1..6);
begin
    Put("Type a string with max 5 characters: ");
    Get_Line(S(1..5), I);
    Put("You typed the string: ");
    Put(S(1..I));
    Skip_Line;
    New_Line;

    Put("Type a string with max 5 characters: ");
    Get_Line(S(1..5), I);
    Put("You typed the string: ");
    Put(S(1..I));
end Help;

```

[When I run this code, and for instance type "Hey brother" I get "Hey b" as an output, and then it continues to the next problem. All good and clear!](https://i.stack.imgur.com/0wzfE.png)

[But when I type a string containing less than 5 characters like "Hey", it types it out like expected BUT it is still waiting for me to fill out the string containing 5 characters. It's supposed to jump to the next problem but it doesn't. If I now type "ss", you will get](https://i.stack.imgur.com/b2nVh.png)

["Heyss" and then it continues to the next problem. So how do I do this? How do I make it as if even I have less than 5 characters it will not only type it out but also continue to the next problem? I've kind of figured out that i have to use simple "if sequences" but I have no clue on how I should apply it as all of my attempts have failed.](https://i.stack.imgur.com/QL54r.png)

My problem should be able to execute all of these inputs and give the following outputs:

```
Tye a string with max 5 characters: Hi
You typed the string: Hi

Tye a string with max 5 characters: Hello
You typed the string: Hello

Tye a string with max 5 characters: Hey there
You typed the string: Hey t

Tye a string with max 5 characters: 
You typed the string:

```