Вот мое решение :
{$N+,E-}

var
    n,i,null : longint;
        st : string;
    res : extended;

function S(num : extended;st : longint):extended;
var
    i : longint;
        result : extended;
begin
    result:=1;
    for i:=1 to st do
        result:=result*num;
    S:=result;
end;

begin
    read(n);
    res:=S(1,n)+S(2,n)+S(3,n)+S(4,n);
    str(res:0:0,st);
    for i:=length(st) downto 1 do
        if st[i]='0' then inc(null)
        else
        begin
            write(null);
                     exit;
        end;
end.