Найдите пожалуйста ошибку оп

найдите пожалуйста ошибку оп
Program P_222_1;
Var i, kol, kolch_2: integer;
chislo,summa_3,max: real;
begin readln(kol);
kolch_2:=0;
summa_3:=0;
for I:=1 then max:=chislo;
else if chislo>max then max:=chislo;
if kolch_2 mod2 =0;
summa_3:=summa_3+round(chislo)mod3=0;
end;
write(summa_3:6,max:6,kolch_2:6);
end.

  • Program P_222_1;
    Var
    i, kol, kolch_2: integer;
    chislo,summa_3,max: real;
    begin
    readln(kol);
    kolch_2:=0;
    summa_3:=0;
    for I:=1 то ???do ???
    if ???then max:=chislo;
    else
    if chislo>max then max:=chislo;
    if kolch_2? mod2 =0;
    summa_3:=summa_3+round(chislo)mod3=0;
    write(summa_3:6,max:6,kolch_2:6);
    end.

    Надо заполнить где вопросы.

  • chislo,summa_3,max: real;