Придумайте алгоритм вводящий три целых числа, определяющих количество максимальных чисел среди введенных. построить блок схему

Var a: array[1..3]of integer; i, max, t, k: integer; begin writeln('введите числа'); for i: =1 to 3 do read(a[i]); for i: =1 to 3 do write(a[i]); writeln(); max: =a[1]; k: =0; for i: =1 to 3 do begin if (a[i]> max) then begin max: =a[i] t: =max; end; if (a[i]=t) then k: =k+1; end; writeln('количество= ',k); end.