Составить программу вычисления среднего , набранного спортсменом - многоборцем (предусмотреть 3 вида спорта) это паскаль

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж