Дана последовательность из n целых чисел

uses crt; var n,t,i,j,mult: integer; flag: byte; beginwriteln ('Input "n" and elements of array: '); read (n); mult: =1; for i: =1 to n dobeginflag: =1; read (t); if t mod 2=0 thenbeginj: =3; while j