6.) Program z1;Var a,b,c,d,e,f:integer; otv:real;beginReadln(a,b,c,d,e,f);otv:=a+b+c+d+e+f;otv:=otv/6;Writeln(otv:7:3)end.7.) Program z1;Var a:integer;begin Readln(a);Writeln(a+a*0.1)end.Должно работать, но лучше набрать и проверить работает ли. Надеюсь помогла)