mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-24 07:03:29 +02:00
14 lines
163 B
ObjectPascal
14 lines
163 B
ObjectPascal
program EnvPrg;
|
|
|
|
uses sysutils;
|
|
|
|
var
|
|
s: String;
|
|
begin
|
|
s := GetEnvironmentVariable('ETEST1');
|
|
if s = 'ab123c' then
|
|
writeln(1)
|
|
else
|
|
writeln(2);
|
|
end.
|