type
  res = array[1..4] of integer;

var
  com1, com2: res;

function sum(a: res): integer;
begin
  
  var play := 0;
  for var i := 1 to 4 do
    play:= play + a[i];
    sum:=play;
end;

begin
  write('Введите результаты первой команды в 1-4 четвертях: ', #10);
  for var i := 1 to 4 do
    readln(com1[i]);
  write('Введите результаты второй команды в 1-4 четвертях: ', #10);
  for var i := 1 to 4 do
    readln(com2[i]);
  write('Результаты по четвертям: ', #10);
  for var i := 1 to 4 do 
    write(com1[i], ' : ', com2[i], #10);
  write('Финальный результат игры: ');
  write(sum(com1), ' : ', sum(com2), #10);
end.