Нужно сделать только первые два задания , заранее спасибо :з ИНФОРМАТИКА!!1!11!

1)const    t = 18 * 60 + 30;var    s: string;    i, n, k, d1, d2: integer;begin    readln(n);    for i := 1 to n do     begin        readln(d1, d2);        if d1 * 60 + d2 < t then k := k + 1    end;    writeln(k);end.2)var    n, k: integer;begin    readln(n);    while n <> 0 do     begin        if (n mod 5 = 0) or (n mod 7 = 0) then k := k + 1;        readln(n);    end;    writeln(k);end.