program rekursi di pemrograman pascal

var input : integer;
function jumgenap (n : integer) : integer;
begin
if n<2 then
jumgenap :=0
else if (n mod 2)=0 then
jumgenap := n+jumgenap(n-1)
else

jumgenap :=0 + jumgenap(n-1);
end;
begin
writeln ('program menjumlah bilangan genap');
writeln ('jumlah nilai yang ingin dihitung : ');
readln(input);
writeln;
writeln('jumlah bilangan genap antara 0 - ',input,
' = ',jumgenap(input));
readln;
end.