ответь те на мою информатику очень надо см в профиле огромное заранее

ответ ему Объяснение:

-a*b+c                                                                                                     

not a and b or c

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.