1 lygis | 6 pamokėlė | 3. Beveik tobulieji skaičiai | koreg.

var
    D, R : text;
    a, b,c : longint;
    i, j : longint;
    suma, dal : longint;
    pirm : integer;
begin
    Assign(D, 'Duomenys.txt'); Reset(D);
    Assign(R, 'Rezultatai.txt'); Rewrite(R);
    ReadLn(D, a, b, c);
    pirm := 0;
    if b >= a then
    begin
        for i := a to b do
        begin
            suma := 0;
            dal := 0;
            for j := 1 to (i div 2) do
                if (i mod j = 0) then
                begin
                    suma := suma + j;
                    dal := dal + 1;
                end;
            if suma = i then
                WriteLn(R, i, '**; Suma: (',suma,'); Daliklių skaičius: ', dal)
            else if ((suma >= i-c) and (suma <= i+c)) then
                WriteLn(R, i, '; Suma: (',suma,'); Daliklių skaičius: ', dal);
            if suma = 1 then
                pirm := pirm + 1;
        end;
        WriteLn(R, 'Pirminių skaičių kiekis intervale: ', pirm);
    end
    else
        WriteLn(R, 'Netinkami rėžiai.');
    Close(D);
    Close(R);
end.