Имя входного файла:E.in имя выходного файла E.out Дается.. ... Имя входного файла:E.in имя выходного файла E.out Дается последовательность из N чисел.найдите максимальное произ.среди всех пар этих чисел.

Program Pr1; uses crt; var mas:array[byte] of integer; fl1,fl2:text; stroka:string; b,v,c,max,i:integer; Begin clrscr; assign(fl1,'E.in'); assign(fl2,'E.out'); reset(fl1); readln(fl1,stroka); close(fl1); for i:=1 to length(stroka) do val(stroka[i],mas[i],b); b:=length(stroka); max:=1; v:=0; for i:=1 to b do if mas[i]>v then if mas[i]>max then max:=mas[i] else v:=mas[i]; c:=max*v; rewrite(fl2); writeln(fl2,c); close(fl2); end.