mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 01:29:49 +00:00
19 lines
267 B
ObjectPascal
19 lines
267 B
ObjectPascal
|
program ExampleLogic;
|
||
|
|
|
||
|
|
{Comment}
|
||
|
|
|
||
|
|
var
|
||
|
|
name: String;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
ShowText;
|
||
|
|
name := 'alice';
|
||
|
|
if (name = 'alice') then
|
||
|
|
Writeln('The name is alice.')
|
||
|
|
else if (name = 'bob') then
|
||
|
|
Writeln('The name is bob.')
|
||
|
|
else
|
||
|
|
Writeln('The name is not alice nor bob.');
|
||
|
|
|
||
|
|
end.
|