unit Unit1;
const
V = 1;
function caseme(Param: integer): string;
begin
case Param of
V:
Result := '1 selected';
1 + 1:
Result := '2 selected';
else
Re
unit U;
function main: Integer;
var
I: integer;
begin
Result := 0;
for i := 1 to 1000 do
Result := square(i);
end;
function square(P: Integer): Integer;
begin
Result := P *
