Можно заархивировать файл, а затем заархивировать архив с этим файлом. И так можно проделать множество раз.
Решение вложено.
-------------------------------------------
Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
Вариант 2.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0----->1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия