Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.
Да ща такие начали асе тут расписывать) это приложение не дятлов создавалось
можно среда, элементраные действия, система команд, отказы ну и так далее