type
xp=array[1..2,3..4,5..6,7..8,9..10] of longint;
var
a:xp;
begin
read(a[1,3,5,7,9],a[2,4,6,8,10]);
writeln(a[1,3,5,7,9]+a[2,4,6,8,10]);
end.

这题有很多种解法O(∩_∩)O~

var
  a,b:longint;
begin
  readln(a,b);
  writeln(a+b);
  readln;
end.

计划考核的

var
a,b:longint;
begin
readln(a,b);
writeln(a+b);
readln;
end.