Какой набор символов будет выведен в результате работы следующей программы, function f(x:string; a:byte):string: begin

Помогите пожалуйста, очень надо!
Какой набор символов будет выведен в результате работы следующей программы,
function f(x:string; a:byte):string:
begin
if a<=3 then
f:=copy(x,1,a)
else
f:=d(copy(x,2,a),a-2);
end;
begin
writeln (f('abcdefghijklm',7)):
end