26 lines
369 B
Ada
26 lines
369 B
Ada
with Ada.Text_IO;
|
|
use Ada.Text_IO;
|
|
|
|
procedure Hello is
|
|
package IO renames Ada.Text_IO;
|
|
|
|
function GetLine return String is
|
|
Line : String(1 .. 1000);
|
|
Last : Integer;
|
|
begin
|
|
|
|
Get_Line(Line,Last);
|
|
|
|
return Line(1 .. Last);
|
|
|
|
end GetLine;
|
|
|
|
Line: String(1 .. 200);
|
|
|
|
begin
|
|
Line.Overwrite("A",0);
|
|
New_Line;
|
|
|
|
|
|
end Hello;
|