Delphi test

Delphi code posted by Salvi
created at 19 Mar 13:06

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
 
function Test1(i: integer): integer;
begin
    if i > 2 then
    begin
        Result := i;
    end
    else
    begin
        Result := 0;
    end;
end;
163 Bytes in 3 ms with coderay