mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-10 20:03:26 +02:00
24 lines
323 B
ObjectPascal
24 lines
323 B
ObjectPascal
Library Greeting;
|
|
|
|
{$Mode objpas}
|
|
|
|
Procedure Hello;
|
|
|
|
begin
|
|
Writeln ('Hello, World !');
|
|
end;
|
|
|
|
Function GetNumber (Max : longint) : Longint;
|
|
|
|
begin
|
|
Repeat
|
|
Write ('Please enter a nuber between 0 and ',max,' : ');
|
|
ReadLn (Result);
|
|
Until (Result>=0) and (Result<=Max);
|
|
end;
|
|
|
|
exports
|
|
Hello,
|
|
GetNumber;
|
|
|
|
end. |