mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:29:27 +02:00
21 lines
205 B
ObjectPascal
21 lines
205 B
ObjectPascal
{ %OPT=-Oodfa -vw -Sew }
|
|
{ %norun }
|
|
|
|
{$mode objfpc}
|
|
|
|
program project1;
|
|
|
|
type
|
|
trange=0..5;
|
|
|
|
function f(r: trange): longint;
|
|
begin
|
|
case r of
|
|
0..5: result:=r;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
writeln(f(2));
|
|
end.
|