Лабораторная работа по информатике. в простую переменную последовательно вводятся 5 чисел. определить максимальное значение и количество чисел, равных максимуму. буду . +50 если получится, можете еще с отчетом? (блок-схема, оформление и т.д.) (работа выполняется через паскаль)

Varn,a,b,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to  n dobeginwriteln('vvedite ',i,' chislo');readln(a);if max = a theninc(b);if max < a thenmax:=a;end;writeln('max=',max);writeln('Количество елементов которые равны максимуму ',b);end.