Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)

Question

Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)

Answer 1

Var
    i: integer;
    k := 0;
    s := 0;

begin
    for i := 10 to 99 do
        if i mod 5 = 0 then begin
            s := s + i;
            k := k + 1;
        end;
   
    writeln('количество  = ', k, ' и сумму = ', s);
end.