29 lines
551 B
ObjectPascal
29 lines
551 B
ObjectPascal
program typed_const;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Function GetAName: string;
|
|
const lastName: string = '';
|
|
var constName: string = 'Lazarus';
|
|
begin
|
|
WriteLn('[Last name entered was "', lastName, '"]');
|
|
WriteLn('[Value of constName is "', constName, '"]');
|
|
Write('Enter a new name: ');
|
|
ReadLn(Result);
|
|
lastName := Result;
|
|
end;
|
|
|
|
begin
|
|
WriteLn('First invocation of GetAName');
|
|
WriteLn(GetAName);
|
|
WriteLn;
|
|
WriteLn('Second invocation of GetAName');
|
|
WriteLn(GetAName);
|
|
WriteLn;
|
|
WriteLn('[Finished]');
|
|
{$IFDEF WINDOWS}
|
|
ReadLn;
|
|
{$ENDIF}
|
|
end.
|
|
|