Бон аппетит
uses crt;
var B:array[1..10]of integer;
s:string;
i,sum:integer;
begin
B[1]:=2;
B[2]:=1;
B[3]:=3;
B[4]:=5;
B[5]:=4;
B[6]:=9;
B[7]:=7;
B[8]:=8;
B[9]:=12;
B[10]:=10;
For i:=1 to 10 do
Sum:=sum+b[i];
write(sum);
writeln('He didnt do this job.');
end.
Бон аппетит
uses crt;
var B:array[1..10]of integer;
s:string;
i,sum:integer;
begin
B[1]:=2;
B[2]:=1;
B[3]:=3;
B[4]:=5;
B[5]:=4;
B[6]:=9;
B[7]:=7;
B[8]:=8;
B[9]:=12;
B[10]:=10;
For i:=1 to 10 do
Sum:=sum+b[i];
write(sum);
writeln('He didnt do this job.');
end.