program Hello;
var
        A : String;
procedure print(var text:string);
begin
        writeln(text);
end;
begin
        A := 'Hello, world.';
        print(a);
        readln
end.