APRILFOOL.PAS

PROGRAM APRILFOOL;
var
        fi,fo:text;
        N:integer;
        a:array [1..100] of integer;
        k:longint;
        i,j:integer;
        s:longint;
        kt:boolean;
begin
        assign(fi,'APRILFOOL.INP');
        assign(fo,'APRILFOOL.OUT');
        reset(fi);
        rewrite(fo);
        readln(fi,N);
        readln(fi,K);
        j:=0;
        S:=0;
        kt:=false;
        for i:=1 to n do read(fi,a[i]);
        for i:=1 to n do
                begin
                        if S>k then
                                while (S>k) and (j<=n) do
                                        begin
                                                j:=j+1;
                                                S:=S-a[j];
                                        end
                        else S:=S+a[i];
                        if S=K then
                                begin
                                        kt:=true;break;
                                end;
                        end;
        write(fo,kt);
        close(fi);
        close(fo);
end.