mixster

program New;
procedure WriteAll(meh: TVariantArray);
var
  i: Integer;
  s: string;
begin
  s := '';
  for i := 0 to High(meh) do
    s := s + meh[i];
  Writeln(s);
end;

begin
  Writeln('Begin');
  WriteAll(['Hello ', 7, 'World! ', 3.456]);
  Writeln('End');
end.