mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 17:29:52 +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. |