Program Hello;
{a roundabout program to demonstrate some Pascal features}

uses
WinCRT;

function GetText(NumTimes: integer): String;
var
iCount: Integer;
sText: String;
begin
	for iCount := 1 to NumTimes do
	begin
	sText := sText + ' Hello'
	end;
GetText := sText;
end;

procedure WriteMessage;
var
sMessage: String;
begin
sMessage := GetText(3);
{calls GetText passing 3 as a parameter}

WriteLn(sMessage);
end;

{The program begins running here}
begin
WriteMessage;
end. {note the full point after last end}