подключение билиотек тд var const 10 text middle integer array 10 of i

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
////подключение билиотек и тд
.....
var
const
n = 10;
c,f:text;
i,middle:integer;
a=array[1..10] of integer;
begin
assign (f, 'input.txt');
assign(c, 'output.txt');
reset(f);
for i:=1 to n do
read(f,a[i]);
middle:=0;
for i:=1 to n do
if (i mod 2=0)
then
middle:=middle+a[i];
middle :=middle div 5;
rewrite(c);
write(c,middle);
close(f);
close(c);
end.