15 lines
305 B
Text
15 lines
305 B
Text
procedure Check(Condition1: Boolean; Condition2: Boolean)
|
|
begin
|
|
if Condition1 = True then
|
|
begin
|
|
if Condition2 = True then
|
|
BothConditionsAreTrue
|
|
else
|
|
FirstConditionIsTrue;
|
|
end
|
|
else
|
|
if Condition2 = True then
|
|
SecondConditionIsTrue
|
|
else
|
|
NoConditionIsTrue;
|
|
end;
|