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

program zz1;

var

a, b, s, max: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f1, 'E. in'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

assign (f2, 'E. out');

rewrite (f2); / / открываем файл для записи

read (f1, a);

s:=1;

while not eof (f1) do

begin

read (f1, b);

s: = a * b; / / получаем произведение

if s > max then max:=s;

s:=1;

a:=b;

end;

write (f2, max); / / выводим ответ

close (f1); / / закрываем файл E. in

close (f2); / / закрываем файл E. out

end.