mirror of
https://github.com/microsoft/monaco-editor.git
synced 2025-12-22 10:25:42 +01:00
28 lines
460 B
Text
28 lines
460 B
Text
program GreetingsNumberOfTimes;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
var
|
|
greetingsMessage: string;
|
|
numberOfTimes, i: integer;
|
|
|
|
begin
|
|
try
|
|
{ TODO -oUser -cConsole Main : Insert code here }
|
|
greetingsMessage := 'Hello World!';
|
|
numberOfTimes := 10;
|
|
|
|
for i := 1 to numberOfTimes do
|
|
begin
|
|
Writeln(greetingsMessage);
|
|
end;
|
|
except
|
|
on E: Exception do
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
end.
|