Răspuns:
Var X,Y,Z:integer; med,X1,y1,X1:Red;beging:170:Y=350;2=;2:150;y1=x*8x5;y1:=4*8x8; Z1:=Z*9; med:=(8x5+8x8+8) 3:vuriteln(Prețul mediu:;med : 2:2);If(x1 y1) and(1x1 1) then writhe(A optinut mai mult venit vânzătorul X) elseif(y1 1 ) and(Y 1 Z1)then virithe (A optinut mai mult vânzătorul Y)elese virithe (A optinut mai mult venitt vânzătorul Z );end