var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(a[i]);
k:=k+a[i];
writeln(a[i] '+');
write(k);
end.
Где ошибка?!

Так правильно.А ошибки ты сделал вот какие:Забыл запяту и перепутал mas и a,причом так что а взялось снеоткуда

И пожалуста нажми спасибо

Ты не указал переменную "а[i]"

Var mas: array [1..10] of integer;k,i:integer;beginfor i:=1 to 10 dok:=0;readln(mas[i]);k:=k+mas[i];writeln(mas[i] ,'+');write(k);end.