mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 08:07:22 +01:00
32 lines
429 B
ObjectPascal
32 lines
429 B
ObjectPascal
program silly;
|
|
|
|
var greater : boolean;
|
|
|
|
procedure error;
|
|
begin
|
|
Writeln('Error in tbs0202');
|
|
Halt(1);
|
|
end;
|
|
|
|
procedure compare(i,j : integer);
|
|
begin
|
|
case (i>j) of
|
|
true : begin
|
|
greater:=true;
|
|
end;
|
|
false : begin
|
|
greater:=false;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
compare(45,2);
|
|
if not greater then
|
|
error;
|
|
compare(-5,26)
|
|
if greater then
|
|
error;
|
|
end.
|
|
|