Question

добрый вечер, прошу кто шарит в Pascal ABC помогите.
просто не получается и все.

Answer 1

6.) Program z1;
Var
a,b,c,d,e,f:integer;
otv:real;
begin
Readln(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.


Должно работать, но лучше набрать и проверить работает ли. Надеюсь помогла)