mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 04:01:35 +02:00
32 lines
428 B
ObjectPascal
32 lines
428 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.
|
|
|